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By Rex F. Colwick and James W. Jones- 



There has been considerable interest in com- 
puter simulation of productivity, energy flow, 
water use, and pollution in the many different 
ecosystems over the earth's surface. Much of this 
work has been stimulated by the International 
Biological Program (IBP) and is oriented to- 
ward better management of the earth's re- 
sources. We report here considerable progress, 
independent of IBP, toward the modeling and 
simulation of cotton production systems. 

There are several justifications for computer 
simulation of a large system. First, computer 
models focus attention on areas where knowl- 
edge is lacking and assist in the planning and 
management of team research. Second, these 
models are useful experimental aids for studying 
hypotheses about system relationships, allowing 
better understanding of the numerous compo- 
nents of a system and thus reducing the cost of 
applied research. Ultimately, in showing the re- 
lationships among system components, computer 
models form a base for sound management deci- 
sions and alternatives. 

Our work commenced with the organization of 
Regional Research Project S-G9, "Engineering 
Systems for Cotton Production," in 1968. No one 
researcher can have a comprehensive under- 
standing of the structure and operation of each 
component of a crop production system, and this 
project has provided coordination among a num- 
ber of researchers in developing a cotton produc- 
tion simulation model. Since its inception, many 
experimentalists have joined the effort to build 
data bases for submodels, and many are also us- 
ing parts of the system to study large ecosystems. 



1 Cooperative research of Agricultural Research Serv- 
ice and Mississippi Agricultural and Forestry Experi- 
ment Station. 

3 Research leader, Cotton Production Research, and 
agricultural engineer, Southern Region, Agricultural 
Research Service, U.S. Department of Agriculture, P.O. 
Box 5466, Mississippi State, Miss. 39762. Colwick is Co- 
ordinator of Regional Research Project S-69. 



This publication describes four simulation 
models of subsystems in the cotton production 
system. These models, encompassing seedbed 
preparation through harvesting and ginning, 
were interfaced for the first computer simula- 
tion of any crop production system in October 
1973. :t Our research group is close to completing 
some insect management models that will soon be 
added to the simulation. 

The first model simulates the soil-moisture 
profile in the seed zone (MOIST) , It is a descrip- 
tion of the moisture flux based on the conserva- 
tion of water in the top G inches of soil. Water 
evaporates from a visible moisture front as the 
water diffuses through a layer of dry soil and is 
partially replaced by capillary water that moves 
from a moist region to a dry region in response 
to a moisture gradient. This model provides the 
moisture input to the following model, EM- 
ERGE. 

EMERGE describes the germination and 
emergence of the seed. It is controlled by soil- 
moisture tension, soil temperature at the seed 
depth, and the mechanical impedence of the sur- 
face soil. When the model has simulated 60% 
seedling emergence, the plant model, SIMCOT 
II, is initiated, 

SIMCOT II is based on conservation principles 
that include a carbohydrate balance, n moisture 
balance, and a nitrogen balance for the plant. It 
requires daily inputs of solar radiation, maxi- 
mum and minimum air temperatures, rainfall, 
pan evaporation, plant population, water-hold- 
ing capacity of the soil, nitrogen application 
rates and dates of application, and plant growth 
factors related to carbohydrate, water, and 
nitrogen balances. Daily outputs from this model 
include plant weight, the number of fruit, and 
the age and location of each fruit on the plant. 



3 Bowen, H. D,, Colwick, R, F., and Batchelder, D. G, 
1973. Computer simulation of crop production: Potential 
and hazards. Agric. Eng. 64 (10) : 42-46. 



Boll opening rate curves from this model can be 
used to initiate the harvesting process described 
in the last model, HARVSIM. 

HARVSIM is a single-farm harvesting model 
that simulates passes made in the fields by the 
harvesters, the selection of trailers for filling, 
the transporting of trailers to the gin and of 
empty trailers to the farm, and gin backlog. An 
option includes twice-over harvesting in which 
the second harvesting of a given field occurs 
only if the remaining cotton would yield more 
than a specified amount. The model takes the 
cotton on through the ginning process and is 
capable of assigning economic values to the end 
product. 

These models are in various stages of valida- 
tion. 

MOIST was verified for only one soil type and 
at one location primarily because the soil param- 
eters necessary for additional verification are 
lacking; however, soil parameters are being de- 
veloped for approximately 20 soils that repre- 
sent about 80 jr of the cotton farmland in the 
United States. Some of these data should be 
available in 1975. 

EMERGE was tested in five States for 2 or 
more years and produced satisfactory to excel- 
lent simulations in years in which the tempera- 
ture increased progressively as the season ad- 
vanced. Subsequently, a slight modification im- 
proved the simulation when a long cold period 
followed a warm period 2 or 3 days after plant- 
ing. This modification needs more testing under 
various field and weather conditions. 

SIMCOT II was tested at several locations, 
and when detailed mappings of the plant struc- 
ture had been recorded twice a week and the 
environment had been monitored accurately, 
there was good correspondence between ob- 
served and simulated plant development, fruit- 
ing characteristics, and yield. More testing is 
needed particularly in the area of water stress, 
and more development is needed to apply this 
model to a field growth situation. 

HARVSIM was tested for 2 years in the High 
Plains of Texas. Data for the first year show an 
excellent correspondence between simulation 
and observation. Second-year data have not been 
analyzed. 

Although these models are in various stages 
of development and verification, this users man- 
ual is presented to document progress to date 



and to offer these models to scientists as a tool 
which they may use to focus attention on aspects 
of the system where understanding is limited. 
This should help them identify missing links and 
assign research priorities. 

These models are not sufficiently developed 
and tested to assist cotton producers with man- 
agement decisions. Such use could result in eco- 
nomic losses. The full management capabilities 
of crop simulation will not be achieved until all 
major crops have been modeled. Furthermore, a 
number of submodels dealing with insects, dis- 
eases, root development, nutrients, and water 
relationships will be essential for producer deci- 
sions. These are under development. 

To interface crop production submodels easily, 
it is possible to make simplifying assumptions 
based on the objective of the interface. This ap- 
proach was successfully used to interface the 
four models described herein. In figure 1-1 crop 
management is shown as it relates to the cotton 
production system. Options were designed for 
running' any combination of the models when the 
user specified appropriate inputs. For example, 
SIMCOT II could be run alone or with EMERGE 
and MOIST, or MOIST could be run alone. The 
integrated models were run to test hypothetical 
situations such as a 10-day cold spell following 
planting, which resulted in a realistic delay in 
maturity and a decrease in yield. 

A simulation of- planting through harvesting 
provided very interesting results. However, the 
assumptions that were made will probably not 
be sufficient for all applications of the model. 
For example, MOIST and EMERGE were inter- 
faced to provide soil-moisture values. It was 
assumed that (1) the seed and seedling do not 
alter the soil-moisture-flux equations, (2) the 
soil temperature can be predicted from air temp- 
erature, (3) the relative humidity can be pre- 
dicted from maximum and minimum air temper- 
atures, the dew point temperature of the previ- 
ous day, and rainfall, and (4) physical imped- 
ance is known. MOIST provided a table of the 
hourly moisture contents at planting depth; how- 
ever, EMERGE required moisture tension values 
in bars as input. To use the interfaced models, a 
soil moisture-soil tension relationship and a 
moisture release equation are needed for the soil 
being tested. 

These equations are being developed for 20 
soils, as mentioned above, at North Carolina 
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FIGURE 1-1. -Schematic of Initial Interface of MOIST, EMERGE, SIMCOT II, and HARVSIM. 



State University. Also, Henry D. Bowen and 
others at North Carolina State University are 
attempting to obtain enough data so that 
EMERGE can be used without having to meas- 
ure moisture, temperature, and physical imped- 
ence daily. This technique will be based on soil 
types and will be developed from National 
Weather Service information and the reaction 
of the soil to initializing inputs of moisture, 
temperature, and physical impedence. 

SIMCOT II was initiated when MOIST-EM- 
ERGE predicted 50% emergence. It was as- 
sumed that from this point carbohydrate produc- 
tion and assimilation would be the controlling 
factor in plant development. A major assump- 
tion was that a single plant can be used to make 
predictions of growth and yield; the variability 
among plants, their competition, and environ- 
mental variability were not considered. Again, 
depending on the objective, this may or may not 
be suitable. Also, no insect models were inte- 
grated into this initial effort. 

SIMCOT II predicted the boll opening rate 
used as input to HARVSIM. For this interface 
it was assumed that (1) no preharvest chemical 
aids had been used and that (2) nothing hap- 
pened to the plant except the removal of open 



bolls. Both assumptions were based on consider- 
able past research, but for some applications 
they may be unacceptable. 

Considerable work remains to be done to inter- 
face these and other models at the field level. In 
many cases, detailed models of interactions of 
various physical and biological systems will be 
just as complicated as any of the independent 
models. For example, interfacing an insect popu- 
lation dynamics model with a crop model might 
be accomplished by modeling the behavior and 
metabolism of the insects as influenced by weath- 
er, crop factors, and insect preferences. Such an 
interface would allow detailed studies of the 
interactions and provide needed assumptions and 
relationships for higher level models. 

An ultimate goal of these models, as mentioned 
earlier, is to optimize crop production systems. 
In addition, they will provide information for 
farm management decision models. Optimiza- 
tion models require a statement of what is to be 
optimized. At the producer (farm) level, profits 
are generally optimized (maximized) subject to 
the constraints particular to a given farm. How- 
ever, researchers may study an optimization 
model designed to maximize yield or minimize 
production cost at the crop model level. 



By Charlie G. Coble, 1 Henry D. Bowen,- and Henry L. King, Jr. 3 



DESCRIPTION 



MOIST is a computerized mathematical model 
for predicting, soil water profiles during the dry- 
ing of soil. It accounts for water movement in the 
soil in both the liquid and the vapor states and 
the evaporation of water to the atmosphere, 

Liquid water movement is computed with the 
soil water diffusivity equation: 

dQ 



where J c =flux of water in grams per second 

per square centimeter, 
(G)=soil water diffusivity in square 

centimeters per second, 
(e) water content in cubic centimeters 
per cubic centimeter of soil, 

dQ 
and -3-=gradient of water content in cubic 

centimeters per cubic centimeter of 
soil per centimeter of distance. 

The transfer of water in the vapor state be- 
cause of temperature gradients is calculated 
with the equation 

dC d(\nT) 

where J,,=flux of water vapor in grams per 

second square centimeter, 
/^diffusion coefficient of water vapor 
in soil matrix in square centimeters 
per second, 



1 Assistant professor, Texas A&M University, College 
Station, Tex, 77840. Formerly at North Carolina State 
University, Raleigh, 

z Professor of agricultural engineering, North Caro- 
lina State University, Raleigh, N.C. 27607. 

3 Research assistant, North Carolina State University, 
Raleigh, N.C. 27607. 



C=concentration of water vapor in soil 
air or atmospheric air in grams per 
cubic centimeter of air, 



dC 
dx 



and 



^gradient of concentration of water 

vapor in soil air and in atmosphere 
in grams per cubic centimeter, per 
centimeter of distance, 
L,, e = coupling coefficient between water 
vapor and heat energy in moles per 
second square centimeter, 
T= temperature in degrees Kelvin, 
#=distance over which diffusion is oc- 
curring in centimeters. 



The water evaporated to the atmosphere is 
controlled by vapor diffusion through the dry 
overlying soil layer and is calculated with the 
equation 



(/== JJ 



dC 
dx' 



where J c = evaporation flux as water vapor 
diffusing through soil from visible 
moisture front to soil surface in 
grams per second square centi- 
meter, 

diffusion coefficient for water 
vapor through soil matrix in square 
centimeters per second, 

dC 
and -^-concentration gradient of moisture 

in soil air from visible moisture 
front to soil surface in grams per 
cubic centimeter per centimeter of 
distance. 

Inputs to the simulation are weather and soil 
data (air temperature, atmospheric relative 
humidity, soil temperature, water vapor diffu- 
sion coefficients in soil, soil water diffusivitles, 



soil bulk density, and energy-mass coupling co- 
efficients). 

The model was verified for use on Ruston 
loamy sand soil and is adaptable to other soils. It 
can be used to accurately assess the effect of cul- 
tural practices on the soil water content profiles 
in drying soil. It was used to examine the effects 
of bulk density, wind, liquid water conductivity 



barriers, and surface films on the soil water con- 
tent profiles under drying conditions. 

The costs of using the model to optimize a cul- 
tural practice, including the cost of empirical 
verification of results, are estimated to be 0.01 
to 0.1 of those required for obtaining the same 
information by empirical methods alone. 



LIMITATIONS 



The major limitation of MOIST is the large 
number of temperatures and relative humidities 
required for the program. For instance, with 15 
soil layers, air temperature, and relative humid- 
ity, there are 408 items per day of input. Just 
obtaining the data is a major operation, and 
then it must be punched in. However, for in- 
depth studies of moisture movement in the top 
inch of soil, these data are required. A second 
limitation is that the soil parameters necessary 
for the program are available only for a Ruston 
loamy sand soil. 

The thermal vapor section of the program is 
not very important in humid regions except pos- 
sibly in the surface inch or less of soil and for 
high-radiation conditions. For large-seed crops, 
such as cotton, corn, soybeans, and peanuts, this 
section can probably be bypassed without serious 



error, but it will probably be necessary for small- 
seed crops planted at shallow depths. Where the 
vapor transfer can be bypassed, it is not neces- 
sary to have temperature inputs for all layers, 
but only for the visible drying front, for which 
air and soil temperatures are required. If the 
thermal vapor transfer is bypassed, the mass-en- 
ergy coupling coefficient also need not be ob- 
tained. By using a constant temperature 
throughout the soil profile, the thermal gradient 
is bypassed, This is usually some function of air 
temperature, such as TA-3. However, it is desir- 
able that the temperature at the visible moisture 
front be estimated as closely as possible for ac- 
curate operation. Tests are in progress to de- 
velop estimates of temperature at the visible 
moisture front from air temperature, wind, a 
roughness coefficient, and solar radiation. 



DEFINITION OF TERMS 



ADC 

AGBAD 
AIST 



BD 
CATM 

CCOEP 
COUPL 



DCONST 

EVAPJ 
PICKS 

FVAPOR 
GRADC 



Diffusion coefficient for the layer approxi- 
mately halfway between the evaporation 
front and the surface to make sure it is 
diffusing through the dry soil. 

Water vapor driving gradient from moisture 
front to the surface. 

Distance from middle of Kth layer to the 
surface in centimeters when 1-cm-thick 
layers are used. 

Array for the bulk density of each soil layer, 

Water vapor concentration of atmosphere in 
grams per cuhic centimeter of air. 

Energy-mass coupling coefficient. 

Array of the part of thermal vapor transfer 
due to the energy-mass coupling for each 
soil layer, 

Array of water vapor diffusion coefficient in 
soil for each soil layer. Computed in real 
function routine listed at end of program. 

Evaporation flux in grams per second. 

Array of the part of thermal vapor transfer 
due to Pick's law for each soil layer. 

Water flux in grams per second due to temp- 
erature gradient. 

Water vapor concentration of atmosphere in 
grams per cubic centimeter of air per cen- 
timeter of distance, 



GRADLT Gradient of the log of the temperature, 

IP The number of 1-cm layers in which the soil 

profile is divided. 

IT The total number of time periods for the 

model to run, 

L The first L in MOIST is k/2; it is used to 

select a dry layer that is over the evapora- 
tion front. The second L is a DO loop sub- 
script. 

QCOND Array of the amount of water transferred 
out of each soil layer in the form of liquid 
water, 

QCONDD Array for each soil layer of the liquid water 
transferred down. 

QCOND-U Array for each soil layer of the liquid water 
transferred up. 

QEVAP Array of the quantity of evaporated mois- 
ture. 

QVAPOR Water vapor transfer due to temperature 
gradient per soil layer (array). 

RH The relative humidity of the atmospheric air 

during the time period, 

SAVE Evaporation from moisture front, 

SAVE1 Distance in centimeters from the surface of 
the soil to the moisture front of the soil. 

SEC The number of seconds in each time period. 



SWITCH Allow moisture to evaporate from the layer 
with moisture front in it. 

T Array for the temperature of each soil layer 

during the time period. 

TA The temperature of the atmosphere air dur- 

ing the time period. 

TCK Array of temperature converted to Kelvin 

for each soil layer. 

VWC Array of volumetric water content for each 



WATER 



WC 



WDIPF 



Input 

Program inputs read in as data are arranged 
in the following order and formats: 

1. IP, IT, and SEC on one card in 110, 110, 
and F10.0 format. 

2. BD array (bulk density of each soil layer) 
arranged in 15F5.0 format. 

3. WC array (initial moisture content at 
each soil layer) arranged also in 15F5.0 format, 

4. RH, TA, and T (RH and TA are single 
variables and T is an array) arranged in F3.0, 
F2.0, and 15FB.O format. 



soil layer in cubic centimeters of water pel- 
cubic centimeter of soil. 

Array of moisture level of each soil layer in 
grams of water per cubic centimeter of 
soil. 

Array for water content of each soil layer 
(dry-weight basis). Example: 6%, read in 
as 0.06. 

Diffusivity coefficient for a particular soil. 



The maximum number of soil layers is 15. If a 
deeper profile is needed, enlarge the dimension 
statement and the input and output formats. 

Output 

The output of the program consists of the time 
period, the moisture content of each level for that 
time period, the distance from the surface to the 
center of the soil layer with the moisture front, 
and the quantity of evaporated moisture. The 
output variables are J, (WC(I), 1=1, IP), 
SAVE1, and SAVE, formated as 15, 15F7.4, 
F5.2,andE15.6. 



PROGRAM SETUP AND EXECUTION 



MOIST is written in FORTRAN G, a stand- 
ardized FORTRAN supported by IBM, for the 
IBM 370/165 computer. The program does not 
use any special system functions, but is easily 
transformable to any FORTRAN compiler. The 
standard code for an IBM 370/165 is EBCDIC, 
and the cards were punched on an IBM 029 key- 
punch. 

The card deck is arranged in the following se- 
quence: 

A. Control cards 

1. Job card 

2. // EXEC FTGCLG 

3. //C.SYSIN DD * 
Main program deck 
Function 

Control cards 

1. /* 

2. //G.SYSIN DD * 



B. 
C. 
D. 



E. Data 

F. Control cards 

1. /* 

2. // 

The // EXEC FTGCLG card in the control 
section tells the computer to compile, link and 
execute the program. The //C.SYSIN DD * card 
causes the program and the function to be com- 
piled. All initializing of values to zero should be 
done in the program. All linkage to execute a 
FORTRAN program is then compiled. The //G. 
SYSIN DD * card then causes the program to be 
executed using the following data cards. The 
compiled program uses approximately 5,000 
memory locations, and the execution requires 
30,000 memory locations on the IBM 370/165. To 
simulate 4 days, the computer compile and exe- 
cution times are approximately 2,0 and 5.0 sec- 
onds, respectively. 



PROGRAM LISTING 

C THIS PROGRAM CALCULATES DISTRIBUTION OF MOISTURE DURING THE 
C DRYING STAGE 

DIMENSION BD<15), WCI15), T116), C<16), HATERU5), QEVAPU5), 
1QVAPDR( 16) ,QCOND( 1 6 ) , OCONST ( I 5 ) f QCONDU ( 16 ) , QCQNDDI 1 5 J , VHC ( 15 ) , 
1FICKSI 15),COUPL< 15) ,TCK( 16) 
READ! 1,51)IP, IT, SEC 
READ( l,52MBD< I), 1=1, IP) 
READt 1,53) IWC( I), 1=1, IP) 

51 FORMAT{ 2110, F10. 0) 

52 FQRMATt 15F5.0) 

54 FQRMATIF3.0, F2.0 t 15F5.0) 

53 FORMAT! 15F5.0) 

27 FORMAT!' TIME WC < 1 I WC12) WC(3) WC(4 WC(5) WC(6) HC(7) HC 
1(8) WC(9) WCt 10) WCU1) WC12) WCI13) WCUM WCI15) DIST QEVAP'l 

WR ITE( 3,27) 

DO 125 M=1,IP 
125 VWC(M) = WC(M) * BD(M) 

DO 75 J=1 T IT 

READt It 54) RH,TA, ( TU ) ,1=1, IP) 

T( 16) =T(15) 

DO 75 J2=l,4 

SWITCH=0 

DO 1 K=l,16 

1 C(K)= 2.288E-6*10**((T(K)-3)/76) 
C MOISTURE TRANSFER DUE TO TEMPERATURE GRADIENTS SECTION 

DO 90 K-lfIP 

DCONST(K)= D(T(K), BD{K), WC(K)) 

C THIS STATEMENT SKIPS MOISTURE TRANSFER IF MOISTURE CONTENT IS 
C LESS THAN U. 

IFIWC1K1.LE. 0.018) GO TO 105 

CCOEF =(-0.0000067 + 0. 00038^*WC t K) ) / 18 

GRADC =C(K)- C(K-H) 

TCK(K)=5*(T(K)-32)/gt273 

TCK(K+l)=5*(T(K+l)-32)/9+273 

GRADLT=ALOG(TCK(K)/TCK(K+L) ) 

FICKS(K)=DCONST(K)*GRADC 

CQUPL(K)=CCOEF*GRADLT 

FVAPOR=FICKS(K)+COUPL(K) 

QVAPOR(K) = FVAPOR * SEC 

QVAPOR(K) = ABS(QVAPQR(KM 

GO TO 110 
105 QVAPOR(K) - 
110 CONTINUE 

C EVAPORATION SECTION 

C THIS STATEEMENT BYPASSES EVAPORATION STEP IF MOISTURE CONTENT 
C IS LESS THAN 0.5? 

IF(WC(K).LE. 0.005) GO TO 80 

C THIS STATEMENT BYPASSES EVAPORATION STEP IF EVAPORATION HAS BEEN 

C CALCULATED FOR A HIGHER SLICE 

IF(SWITCH.EQ.l) GO TO 80 

CATM = 2.288E-6 * 1 0** ( ( TA-3 ) /76 ) *RH 

DIST=K-0.5 

SAVE1 = DIST 

AGRAD=(C<K)~ CATM)/ DIST 

L=K/2 

IF(L.LE.l) L= 1 

ADC=DCONST(L) 

CVAPJ = AOC+AGRAD 

QEVAP(K) = EVAPJ * SEC 

OEVAP(K) = ABS(QEVAP(K) ) 

SAVE = QEVAP(K) 

SWITCH=l 



PROGRAM LISTING-Continued 



80 



C 
70 



135 

480 
91 

12 

LI 
15 

14 

13 

L6 
90 
430 



COMPUTES WATER TRANSFERRED 
0.02) GO TO 480 

GO TO 135 

- 0.046) / 



GO TO 70 

QEVAP(K) = 

L=0 

DTST=0 

AGRAD=0 

AOC=0 

EVAPJ=0 

THIS SECTION 

IFIVWCIKJ.LE 

IF(VWC(K).LE. 0.055) 

WDIFF=(lO**(IVfcC(K) 

GO TO 91 

WDIFF = 1.55E-5 

GO TO 91 

HDIf=F*0.0 

IFtK.EQ. I) GO TO 11 

IFtHC(K) -WCIK-l)) 1 

QCONDUIK) = WDIFF * 

GO TO 15 

QCONDUIK) = 

IFtK.EQ.15) GO TO 13 

IF(HCtK) - WCIK+D) 13,13,14 

QCONDD(K) = HDIFF * I VWC(K) 

GO TO 16 

QCONDDtK) = 

QCONDU (16)=0 

CONTINUE 

DO 18 N=1, 1C 

IF(N .EQ 

QCOND(N) 

GO TO 18 

17 QCOND(N) 

18 CONTINUE 

00 65 L=l,l5 

HATERU) = WCU)*BDU) 

IF(T(L) - 

IFU.EQ.l) 

WATER(L) 

GO TO 50 

WATER(L) = 



DUE TO HYDRAULIC CONDUCTIVITY 



0.036) )* 0.00001 



(VWC(K) - VWCIK-IM * SEC 



- VWC(K-H)) * SEC 



1) GO TO 17 
= -QCONDD1N) - QCONDU1N) 



4-QCONDU(N-H) + QCONDD(N-l) 



= - OCONDO(N) + QCONDU(N+1) 



40 

100 
45 
50 

65 
75 

26 



)45,40 f 40 
GO TO 100 
HATER(L) - QEVAPU) 



- QVAPOfUL) + QCQND(L)+ QVAPOR(L-l) 



= WATER(L) - QEVAPtD+QCnNDR)- QVAPQR(L) 



WC12) 



= 



WC(13) 
WC(3), 



WC<4), WC151, WC(6) t WC(7), 



WCU1), WCU2), WCtl3), WC(14), WC(15), 



= HATERtL) - QEVAPU) - QVAPORU) + UCQND(L) 

GO TO 50 

HATERtL) 
1+ QVAPORU+1) 

IF(HATERID.LE.O) WATER(L) 

WC(L) = WATERID/BOIL) 

VWC(L) = WATERU) 

CONTINUE 
.HCI15) = WCI14) + WCI14) - 

HRITE(3,26) J, WC ( 1) t 
1HC(8), WC(9), WCUO), 
1SAVE1.SAVE 

FDRMAT(I515F7.4 f F5.2,E15.6) 

RETURN 

END 

REAL FUNCTION D(T, BO, WC) 

TK =T+460 

E=0.286*I(TK/4g2)**l.75) 

F=BD/2.65 * (WC*BD) 

F1=1.0-F-0.23 

D=E*F1 

RETURN 

END 
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By 0.F. Wanjura 1 



DESCRIPTION 



The following pages contain a short descrip- 
tion and detailed instructions for using the com- 
puter model of cotton emergence, EMERGE. A 
comprehensive discussion of the theory and logic 
utilized in EMERGE is given by Wanjura et al.- 
Validation of EMERGE and its application for 
studying the sensitivity of cotton emergence to 
several soil parameters have been documented 
by Wanjura. 3 

EMERGE simulates the time distribution of 
cotton seedling emergence. Theoretical equations 
that describe water absorption by seeds and 
elongation of the cotton hypocotyl, with accom- 
panying logic, form the basis of the model, Par- 
ameter values for the theoretical equations and 
the logic were derived from experimental data 
and other observations obtained from emergence 
tests conducted under controlled environmental 
conditions. Parameter values in the equations 
are dependent functions of the soil environment. 
In this manner the equations reflect the effect of 
temperature, moisture, and physical impedance 
of the soil on the emerging seedlings 

Cotton emergence is divided into two phases in 
EMERGE. Within each phase the average per- 
formance of a population of emerging seedlings 
is described. The first phase is germination, 
which is followed by the second phase, called 



1 Agricultural engineer, Southern Region, Agricul- 
tural Research Service, U.S. Department of Agriculture, 
Lubbock, Tex. 79401. 

2 Wanjura, D, P., Buxton, D, R., and Stapleton, H, N. 
1973. A model for describing cotton growth during emer- 
gence. Trans. ASAE(Am. Soc. Agric. Eng.) 16: 227-231. 

3 Wanjurn, D. F. 1973, Effect of physical soil proper- 
ties on cotton emergence; Prediction and quantitative 
description, U.S. Dcp, Agric. Tech, Bull. No. 1481, 20 pp. 



emergence. Germination extends from the time 
of planting until the average radicle length 
reaches 3 mm. Germination progress is related 
to water absorption rate, which is dependent on 
soil temperature and moisture. Water absorp- 
tion rate increases between 60 and 100 F, but 
is assumed to stop below 60 F and level off 
above 100 F. Germination (or 3-mm radicle 
length) is considered to have occurred when the 
moisture content of the seed exceeds a specific 
level for a given temperature and soil moisture. 
These specific seed-moisture levels were deter- 
mined from empirical data. 

Emergence begins with the completion of 
germination and depends on soil temperature, 
moisture, and physical impedance. Emergence 
progress is related to the average hypocotyl 
elongation of the seedling population. The temp- 
erature limits for hypocotyl elongation are 60 
and 104 F. Temperatures outside this range are 
assumed to stop or interrupt hypocotyl elonga- 
tion. 

Seedling emergence is calculated from a set of 
regression equations. These equations were de- 
veloped from experimental data relating average 
hypocotyl length and soil-moisture level to the 
percentage of seedlings which exceed certain 
specific lengths. In the model, the specific 
lengths represent planting depths. For example, 
if the hypocotyl elongation portion of the model 
indicates average hypocotyl length as 4 cm, with 
a planting depth of 3.8 cm, and if the percentage 
of seedlings equal to or greater than 3.8 cm in 
length is 50 % , as calculated with the appropri- 
ate regression equation, then 50% emergence 
has occurred from a 3.8-cm planting depth. Per- 
centage emergence, of course, would be lower if 
the planting depth was greater for the same 
average hypocotyl length. 
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LIMITATIONS 



The temperature range of EMERGE extends 
from 60 to 104 F. Soil temperatures are meas- 
ured hourly at seed level. 

Soil-moisture tension can vary from 0.33 to 11 
bars. Soil moisture should be sampled in the in- 
terval including seed depth 0.64 cm at least 
every 2 days. When the soil dries to seed depth 
after germination, soil moisture should then be 
sampled in the zone where the seedling radicle 
is absorbing moisture from the soil 

Soil physical impedance is the input parameter 
most difficult to describe numerically. The 
values used in developing EMERGE were meas- 
urements made in soil that was uniformly com- 
pacted from seed level to the soil surface. Even 
though the same type of soil penetrometer (0.4- 
cm-diameter blunt end) is used both in the field 
and in the laboratory, the same physical imped- 
ance reading on the penetrometer could repre- 
sent different magnitudes of soil resistance to 
seedling emergence. Rarely in the field is the 
physical impedance level in the soil uniformly 
distributed with depth. The permissible range of 
physical impedance values for the covering soil 
over the seed is 3.3 to 50 lb/in 2 (PI in program) . 
Physical impedance should be measured by in- 
serting the penetrometer 2.5 cm into the cover- 
ing soil over the seed drill. Measurements should 
be taken at least every 2 days 

Planting depth designations are limited to 



1.25-cm increments between 1,3 and 7,5 cm. If 
the depth of soil over the seed changes after 
planting, the time of change and the amount 
must be reflected in the computer coding of 
EMERGE where planting depth (DEPTH) is 
specified. 

There is no algorithm in EMERGE to describe 
changes in seed vigor that may occur after plant- 
ing. Thus, if long periods of adverse tempera- 
ture or saturated soil are encountered, EM- 
ERGE may produce an inaccurate simulation 
because seed germination percentage has 
changed. The model was developed from experi- 
mental data on acid-delinted seed; however, it 
should be suitable for situations where fuzzy 
seed is planted. 

Henry D. Bowen and James W. Jones at North 
Carolina State University suggest the following 
modification of EMERGE. The present method 
of calculating the limits of hypocotyl elongation 
(EST) for a low-temperature period followed by 
a warm period predicts lower growth rates than 
observed. If EST is calculated by using a run- 
ning average, the accuracy for the above condi- 
tions is improved. At the same time, the accur- 
acy under normal warming conditions is not af- 
fected. North Carolina has programed EM- 
ERGE for IBM 360 FORTRAN with the option 
of EST being calculated with or without using a 
running average. 



A Array of hourly seed-level soil tempera- EM 

tures in degrees Fahrenheit. 

CLOK Counter for accumulating time in hours, EP 

DE Hypocotyl elongation during 1 hour, in 

centimeters. 

BELMOS Seed-moisture increase during the hour EST 
preceding germination. 

DEPTH Planting depth in centimeters. 

DT Array for storing the calculated hourly GERMT 

fractional accumulated increments of 
growing time prior to printing as out- GP 
put. IDATE 

DWATER Hourly increase in seed moisture in per- J 
cent, dry weight, KL 

EL Array for storing accumulated hypocotyl 

lengths in centimeters prior to printing KNL 
as output, 

ELONG Accumulated length of hypocotyl in cen- KT 

timeters. 

ELST Accumulated hypocotyl length in centi- 

meters. M 



Array for storing hourly EST values 
prior to printing as output, 

Array for storing cumulative percentage 
emergence values prior to printing as 
output. 

A three-dimensional array of maximum 
hypocotyl lengths used to calculate hy- 
pocotyl elongation. 

Elapsed time from planting when germ- 
ination occurs in hours. 

Standard seed germination in percent. 

Date of test. 

Counter for accumulating time in hours. 

Parameter used in calculating rate of 
seed-moisture uptake. 

Array for storing hourly KT values prior 
to printing as output. 

A three-dimensional array of rate of elon- 
gation parameter values used to calcu- 
late hypocotyl elongation, 

Seed-level soil-moisture tension in bars. 
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MOIST Subroutine in which time variation of 

seed-level soil moisture is specified. 

NDEPTH Integer value of DEPTH. 

PI Soil physical impedance in pounds pel- 

square inch. 

PLACR Variable for identifying location of teat. 

S TEMP. 

TEMP Seed-level soil temperature in degrees 

Celsius. 

TIM Time in hours. 



Input 

Program inputs read in as data are arranged 
in the following order and formats: 

1. A table of KT values is read under 5F 
10.0 format. These data are included with the 
source deck, which can be obtained from the 
author. The KT values do not appear in the out- 
put section. 

2. A table of EST values is read under 5F 
10.0 format. These data are also included with 
the source deck and do not appear in the output 
section. 

The following data must appear in sequence 
after input 2 and be supplied by the user: 

3. PLACE, M, PI, IDATE, DEPTH, and GP 
on one card in A10, F5.0, F5.0, 6X, A10, and 
2F5.2 format. 

4. A-array (hourly seed-level soil tempera- 
tures) arranged in 16F5.0 format on each card. 
The last card should have 9999. punched in the 
first five spaces. The number of hours simulated 
is equal to the number of A-array values. A 
maximum of 500 values may be specified. 

The following information is required input, 
but does not appear in the data section of the pro- 
gram deck; necessary changes must be made di- 



TIME 



TMAX 



TWATER 
TWATERL 



Array for storing time values in. hours 

prior to printing as output. 
Total allowable emergence time for the 

soil environmental conditions existing 

during the hour. 
Accumulated seed moisture in percent, 

dry weight. 
Parameter for temporarily storing the 

value of accumulated seed moisture in 

percent, dry weight. 



rectly in the main program. 

5. The variation of seed-level soil moisture 
(M) over time is specified in subroutine MOIST. 
This information must be supplied by the user in 
FORTRAN statements. 

6. Physical impedance (PI) variation over 
time is specified in the main program where in- 
dicated by comment cards. The change in physi- 
cal impedance must be described by the user in 
FORTRAN statements, 

Output 

The first information printed out is identify- 
ing data for the simulation, including location, 
beginning seed-level soil moisture, initial soil 
physical impedance, and date. This information 
is printed under the format of statement 31. 

During germination the parameters CLOK, 
TEMP, M, KL, DWATER, DELMOS, and 
TWATER are printed hourly in 7F10.5 format. 

When seed germination is reached this is 
printed under the format of statement 52 
GERMINATION TIME EQUALS "F5.0." 

During the emergence phase of EMERGE, 
hourly values of TIME, A, DE, EL, KNL, EM, 
DT, and EP are printed according to the format 
of statement 34. 



PROGRAM SETUP AND EXECUTION 



EMERGE is programed in FORTRAN for a 
CDC 6400 computer. 

EMERGE does not use any special system 
functions that are peculiar to a CDC 6400. Some 
variable names are seven characters long, which 
is a greater word length than most other com- 
puters allow. The CDC 6400 also permits the "A 
format" specification to be a maximum of A 
(10). 

The standard code read by a CDC 6400 is 
BCD. Computers which have EBCDIC as the 
standard code may not read cards punched with 



BCD code. Normally, computers can read either 
code, provided an appropriate control card is 
utilized. 

The card deck is arranged in the following se- 
quence: 

A. Control cards 

1. Job card 

2. RUN(S) 

3. SETCORE 

4. LGO 

End-of-record card: Multiple-punch 7-8-9 
in card column 1 
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B. Main program deck 
G. Subroutines 

End-of-record card: Multiple-punch 7-8-9 

in card column 1 
D. Data 

End-of-file card: Multiple punch 6-7-8-9 

in card column 1 

The RUN(S) card in the control card section 
causes the computer to compile EMERGE. All 
memory locations in the computer are zeroed by 
the SETCORE card. The LGO card causes the 



program to be executed. In addition to the initial- 
izing accomplished by the LGO card, some vari- 
ables are initially set equal to zero in the main 
program. However, for the control cards indi- 
cated for running on a CDC (MOO, initializing 
within the main program is redundant. To com- 
pile EMERGE requires 10,112 memory loca- 
tions. Program execution uses 9,984 memory lo- 
cations. Computer compilation and execution 
time required to simulate a 10-day emergence 
period is approximately 5.2 seconds of central 
processor time. 



IB 



PROGRAM LISTING 



000013 

000003 

000003 
000003 
000030 
QOOQ34 
OOOOM 
000101 
OOOltS 
0001?! 
0001?! 
0001?! 

0001*1 
OQOJ21 

000121 
0001?! 
0001?! 

0001?! 



0001?3 



000125 
000126 
OQ01Z7 
OQ013Q 
000131 
00013*1 
000136 

000141 

000142 
000113 
000104 
0001S7 



OOOU2 
00016^ 
000166 



EMERGE ( INPUT, OUTPUT . T*PP 1 INPUT) 
C*#****flErTTOMS SUBJECT TO CHANGE FOR STHUL*TTON ARF AS FOU OWS*#*# 



MOISTURE. BARS THIS IS TN A SUBRUUTTNF 
C*****(21 PHYSICAL IMPEfHMCFf PSI 



t 



DTHFNSION KT(6tfl5)i FST < 

DIMENSION A(500U 
IKNLfSOO). E^(SOO) 

RFAL M,K 

FAn70f t 

PRINT 8fl 

READ 70. ( f (FST(tfJtL) fLlib)iJ1 i)tl*lt6) 
?0 RFAH TQi "LACPt Mi PI. TDATF, OFPTHt Gp 

PRINT 31 t PLACE. MI PT, IOATE 
1 PRINT 4ft 
70 FtlRHAT(SFIO.O) 
fl8 



50 
SI 
t2 



FORHAT(16F5,0) 
FnRHAT(7F105l 
FORHAT(//10V,*GERMINATinN TTMF FQHAI S* . F5, t 2X i *HHURS*//) 



1XA1 Ot SX f *HOI8TURFl*iF5.2 



GDc 

INITIALIZATION 

TWATERLQ. 



PARAMFTFRS 



CLOKs 0. 

ft 



CLOKa 0. 
DT(J) 
ElSTs ,nS 
EL(J)o 0, 
ELONG= 0, 
PT 3,3 
J0 

RFAD SOt( 
1 ) 



, T 1.500) 



500 



C**** THIS BErTTON COMPLITF3 THt 3-MM RAHKLE EMFRGEWcF FVFNT 
BY SIMULATING THE IMBTBTTTONAL WATRR UPTAKE OF TOTTON 

SFEn. THF TNPUTS ARE HnuRLY 50TL TF.MPtRATURt Ft 

sna MOISTURE IN 



C**** 

c**** 



M 



- MOTST(M t CI.OK) 



t 00, 



16 



00(1203 
000205 
000210 
000213 
0002U 

000236 
000216 
000217 
000253 
000265 
000270 
000302 
000315 

000333 
000333 

000353 
000353 

000371 
000371 

000411 
000414 
000416 
000417 
000420 
000421 
000422 
000424 
000446 
000450 
000450 
000452 
000474 
000476 
(100503 
000504 
000505 



000506 
000510 
000512 
000513 
000514 

000514 

000514 
000516 



PROGRAM LISTING-Continued 

CLOKn CLOK + 1. 



GO TO 15 

.32,22220) GO 10 P9 
IF(TEMP.GF. 15. 55555) GO TO 9Q 
9 Ki.8 -.0517136B + ,0001 49960* (TEMR*#2 a ) 
1 ,000644fl513*(M 
GO TO 91 

.033776? + 



IF-(TEMp,GT f 12.2) RO 
IF(fTFMP.RT.21.?) t 



66 



1M + ,001l77446*fM 

GO TO 64 
(S3 DFLMOSa -,6954544 + 

en TO 64 

65 DfTL M OSs -.3583701 + 



T,3?.2 no Tn 63 

,?6,66)) fiO TO 65 
,15,55)) fiO TO A2 
CTEMR**2.) ,OQt 



.0833515* 



*#?.) 



fl 0013fl3161*fTFMP**2,) -,0350919/1* 



1M f ,00^50674fl*fM **?,) 

GO TO 61 
66 DFLMOSs 3,39290 , 0019702?* (TFMP**2, 



,3693547#M 



64 IF(nWATEH,LT.DELMnS)GO TO 10 

TWATER" TWATERL + 

Gn TO 16 
15 Kt.0,0 



TWATERBTW4TERL 
16 PRINT SlfCUOKi TEMP, M v Kt. , OWATER, 



GO TO 61 

10 TWATERBTHUFRL + OWATFR 
PRINT SlfCtHK. TEMP, M, 
CF.RMT rLIK 
PRINT 5?, GFRMT 
DWATER0. 



Kl, , DWATR, DFL.MOS, TATR 



GH TO 502 

C *** THIS SECTTON CALCUUTFS HYPOCHTYL ELONGATTON TN 
C*** USING HOURLY TNPUTS OF SOTL TFMPERATURE F 90TL 
C**** HOISTLIRF TN BARS, A^D PHYSICAL TMPEDANCF IN PS! 



502 KKK RERMT 
KNa KKK + ). 
J KKK 
TTMa J 
22 FORMAT! 1 X t *TIMfc*. ?X*TEMPFRATHRF* bX,*L)F#,9V , 

1#F.UnNGATION*f l3X,*K.WL*t l2y|*EMAVT*i 6X,*oTIMf* ( , 
34 FORMATC lXF4.0t5X,F4,Oi7X,r5.3.6X f F7,3tlOXtF1b. 

1 ,F5.2,7X,F6,53XiF5.1) 
73 ja ,1 + 1 

TTM TIM + 1 , 
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PROGRAM USTING-Contmued 



fl005?3 



000515 

000563 
000601 
000605 
00061 1 
000613 
000623 
000631 
000643 



0006S2 
000665 
000670 
000672 

000707 
A00710 
0007*2 

OQ0732 
0007*2 
000705 
000754 
000761 



000771 



000774 
000777 
001Q02 
001006 
001007 
OfltOU 



T" (J) 

1F(T.GT.~ 999.) GO TH 501 

lF(n.LT.AO.).OR.<I.GT t 10<l.n r,n TO Hh 

r*** PMYSKAI TMPEOAMCF TS WEftSFD WHEN AVFKAGF HYPOCOTYL 

r**** FOUALR PLANTIWG OFPTH, I" TALIRMATTWC THF MODEL IT W 

r**** pnUMD THAT THF. F1FLR M E ASHRFO PT V*l UFS EXPRESSED 1^ P81 SHOULD 

r***# HF nivinE^ RY 10, THF LOWEST PFRMlSStRlE PT VAl.UF TS 3.3. I" 

c**** OFNFHSL PT VALUFS OF A, i?. AND ?n *HF REPRFSFNTATIVE OF LICHT, 

C**** MFDTU". A^D SF.VFRF SOTL PHYSICAL TMPEOAWCFS. 
IF(FLnNR.f!E.OEPTH)Gn TO 1*4 

en TO i5 

PT T3 DFSCrtlBFD IN STATFMFNT 141 
Ida TF((TlM.GP,195.),ANI>.frTM.LT,?43.nPla6,3-.05a*(TTM-i95.) 



CAUL MQTST(M,TIM) 

K*iLM) B K(T,M f PIiKT) 

EM(J) K(TiMiPTiFST) 

DF(.J) KN!.(J)*FLST*(EM(J) - ELST) 

3 fT - 3?)*. 555555 

IF(S.I.T.21,1in) GO TO 74 



IF(S.GT.3?,?2?2) GO TO 92 



- !T.690?*M 



TO 7S 

1 .-50139* (M**?) 



It 2,76f?9*M 

on TO 9^ 



TO TO 93 



93 OT(.I) 1,0/THAX + OT(J-l) 
IF(FMUKLT.ELST) CO TO U7 
El.(n= FL'J-O + 



C **** THIS REOTTOM COMPUTFS PPRCENTAGF, FMERGEWCF FROM THE AVERAGE 



IF{FLHNR,I T.1.0) GO Tn ?5? 

THIS SErTTON CAlCUUTFS THE STATEMENT NUMBER OF THE 

|n BE USei IN clLCULATlMO PFRCEMTAGF FMFRGM C F. THE CORRECT 

cms E^UATTOM DEPEND** ON PLAMTING 

IF(OEPTW.I T.1.87b>Gn TO 10QO 
IF(r,EPTH i nE < 6,87blGO TO 1001 

PTHfDP 

TO 100? 

PTHal 

TO 100' 
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PROGRAM USTING-Continued 



noion 

001013 



001025 

0010^6 
001047 

001062 

001105 

001 106 
oon?i 

001 144 
001145 
001173 
OQ1174 
001231 

001232 
001245 

OOM02 
001307 
001322 
001326 
001331 
001334 
001335 

00134Q 
00133 



001351 
0013B6 
001363 
001370 
001371 

001374 
001377 
001404 
001411 
001412 



00t457 
001461 



1002 Cfl TQf200f2M*202,2n3.204.20?n, 

c APPLICABLE RANGF IF EI.ONG is i a n u.n CM, DFPTH 1,3 CM 
200 

126568ELONG*M 
GO TO 250 

c APPLKABLF RANGF np ELONG is i,n - 5.6 CM, DFPTH a 2.5 C M 

201 IF{ftLONG,LT.1,ft) t OW,fEI ONS.GT.6.7)) GO TO 250 
P( J) a 2?.*372*EIONG + 24 , 9413* 

1+ 02fl4Q49*(FLnNR*#5) 
GH TO 250 

c APPLICABLE RANGF OF ELONG is i.n 6.6 CM. DFPTHB 3.P CM 

202 IF(fELONGaLT.l.a).OR.rEI.QMG.GT.6.6)lGO TO 250 
\ 

cn TO 

C APPLICARLF RANGE HF ELONG IS 1 . rt < 7.5 CM. OFPTHa 5. 

203 EP(J)*M 1 ,6959#FLnNG + S, 
11 37004*( M **2l 1,3153*EI 

cn TO 250 
c APPLITABLF RANGF OF EIOWG is i.n - 7.5 CM. DEPTHS 6.3CM 

204 EP(J)12022')*M + 1313l5*FLnNG - fl.56R7?*f El ONG**2) 4- 1,6141 ( ?#(F 
1LONR**3> - .009R5*)23*ftLONG**5) + 3. 

GO TO 250 

c APPLICABLE RANGF np EI.OWB is ?,4 7.5 CM. OFPT^B 7.5 CM 

205 IF(fEI.ONS.LT.3.ci>.OR.(I.DMG,GT.7,5)) GO Tn ?50 
EP(.T)s*fl,y8373*M + 5,noi3*EI.ONG " 1.53460* 

10NG**aj - .n30305*(ELONG**5) + 2.0752* fM**?) + ,, 
250 EP(.T)* FPfJ)*GD 



252 El ST= OF(,T) + ELST 



TTMFC.Tja TIM 
GO TO 73 
46 OF( T)* 0. 
KNL(J) 0. 
EM(,T)a ft. 
TTMF(J)e TIM 
EL(,I)a FL(J*l 



) FPfJ-1) 
GO TO 73 
DF(,T) 0. 
TTMF(.T)a TJM 
El, (,!)* FLf J-l) 



GO TO 7T 
501 PRINT 2? 

PRINT 3i(TIMF(T> A(T). 



El ( T ) . KNL(T)* FM fl ) DT ( T) i Fpfl) 



STOP 
END 

SIIRROIITTNF MOlST(M f 



C*** |HE SECTION BEL OH FXPRFSRES THF "OlSTURE IN THF SEFO Z1NF A3 A 
C**** FUNCTION Op TTMF FOR A PARTICULAR FTfcLD TFST 
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PROGRAM LISTING-Continued 



000006 
000006 
000011 
000027 



000076 
000102 
(100103 



HEAL 



IF 



RFTURN 



ooooi i 
ooooi 1 
OOOOM 

00001 1 

000011 
000013 

000014 

000020 

oooo?2 

000023 
000021 



oooon 

006013 



0000*7 
000053 
000055 
0000">6 
000057 
000061 

000074 
OQf>QT6 



000102 
000106 
000110 
0001U 
OOOH2 

000114 
0001?7 
OOOM1 
000151 
000162 
000171 
000203 



RFAL FUNCTION K(TfH,PT.K7l 

C *** THIS FUNCTION C4LCUUTES THF VALUF OF EMAXT AND K^L FOR 
C**** ELONG*TTOM A3 A FUNCTION OF TPMPERATUflE F. MOISTURE IN PARS. 
C** PHVRICAL TMPEfUMCF TN Pfl] flV IISTNG LINEAR INTFRPOL ATION JN 
THRFE DTMFNSIONS 



DTHPMSION T*C6)tMA( 
DIMENSION KTC6UtS} 
RFAL MA,KT| 
DAT* TA/6". 0,70, 



tO/. HA/0. 



IF(T.GE.TA(T)1 GO TO 1 

1THJ-1 
ITUI 

on TO 3 



on P it HI 

IF(M t GE.MA(U) RO TO ? 



en TO a 

2 CONTINUF 

a DfMHA<TML/(M*(TMU>-MACTML)l 

IFtnM.En.0,1 TM1I"TML 

IPLlPUsO 
. OH S Tt i? 

PGF p i*cni r,o Tn ^ 



IPUI 
GO TO 6 

5 C1NTINUF 

6 DPfPT-<PIA 
IF(r>P.EO.O t l TPUTPL 

+ DM**2. * 



11 IFCtDT.GT.O.) .AMD. (DM.GT.0.1) Gn TO 1? 
IF((DT.fiT.O.>.AND.(np.GT.O.)) GO TO H 

CALCULATION OF K WHEN MniSTUftF ANft PHYSICAL IMREOANCt ARE 
BETWEFN T*8LE VALUES 



20 



PROGRAM LISTING-Contmued 



000215 
OQ02?2 



9 K0*(KJ-KI ) + Kl. 
G" TO Ifl 

C*LCUI ATIONS TO FTNfi PRDPFK VALUE OF K WHFN TEMPERATURE 
*RF: RETWFEM TABLF VALUFS 



12 lF(np,GT.n t > GQ Tn ia 



1002?5 


D1ML* 


(MA f IML)M) /(HA f 


IM|,1 MA (TMM) ) 


00024Q 


3'IBI 1 = 


fDTFML>*fKT(TTl 


iTMLiTPL) - KT(TTLiTMU|TPI )1 


000255 


SUBL2 


KT 1 ITL IMLi IPLl 


- SURL1 


000265 


DTF^UtB fMA(TML) M)/'HA(TM|.) -MAfI M U 


000300 


3IJBU1* 


fOTFHu)*fKT(!T" 


i TMl ,TPL) - KT(TTUtIMUiTPL)> 


000315 


3UflU2 


KT 'ITUf'IML* IPL) 


- SURU1 


000335 


KSURa r 


(SURU?"SL)RL?) * ( T 


A (I TU1 -T) 1 / fT A < TT'O *T A C TTI )> 


000344 


Ka SURU? - KSUB 


000346 


GO TO 


10 






C CALCUI. 


ATlONfl OF K WHEN 


TEMPFRATMRE AND PHYSICAL IMPFDANCE ARE 




C BFTWfcF 


N TABLE VALUES 




000346 


13 IF(nM. 


GT.O.) RO in U 




000351 


DTF M L* 


(PIA(TPL)-PT)/(P 


I A(TPt.) PI A(IPU1 J 


000364 


SIIBM* 


fDTFLl#fKT(TTL 


tTMLiTPI.) - KT(TTI. iTMt ,TPU)1 


0004ftt 


3UBI.2B 


KT<lTLIMLtIPL> 


- SUWL1 


00041 1 


OTFMU" 


fPTA(JPL) - PP 


/(PTAHPL1 - PIA(TPU)) 


000424 


SHB'lla 


rDTFMU)*fKT<TTU 


tTMLiTPL) - KT<TTUTMUTPUn 


00044t 


SHBU2" 


KT f I TU 1 1 ML i IPLl 


RUFU1 


000451 


KSURsf 


(ftURU?-SURL?)*(T 


Af ITU>"T)1/f TA(ITH)" - TACTTLJl 


000470 


KS SUR 


u? " KSUB 




000472 


on TO 


10 




000472 


15 1F(T1T. 


OT.n.l GO TO 14 




000475 


DTFML- 


MA(TML) Ml/fMA(IML) - HA(TMU)) 


000510 


SIIBl IB 


(OTFML>*fKT(ITI..TML i TPI ) - KT ( TTt. t TMU, TP1. ) ) 


000525 


3JBL2 


KT t ITL* IML t IPLl 


SURL1 


000535 


DTKMUa 


Pi IFML 




0005^6 


SUBU1 


fDTFMUl*(KT(TTL 


iTMLtTPII) - KT{TTI.f TMUTPM)1 


000553 


3UBU2 


K T f I T U 1 M L 1 1 P U 1 


SURUt 


000563 


K^URs 


( f SHBU2 * SIIBl. 2"> 


*(PTAfIPU1 - P I> ) /CPIA( TPU) - PTAflPLl) 


000602 


KB SUPJ? - KSUB 


000604 


on TO 


in 






C CALCUL 


ATION OF K WHF.M 


TEMPERATURE* MOTSTUREt ANn PHYSICAL 


C IMPEDANCE ARE BETWfcFN 


TABI f: VALUER 



000604 



000640 
000650 



000675 
000714 
000716 
000720 



.14 DIF50* 

SUHI-1* niFSn*fKT(TTL, TMl , TPi )- 
SIIBl 2 KTfltUilMLtlPLl - SURL1 
3UBU1= i>JFSO*(KT(TTU,TMI. tTPL) 
SUB'lfa KrflTUtlMLiIPL) - RUPU1 
KSURs (fS'lBUg - 31IBl.2)*fTA(TTM) - 
K* 

10 RFTUHN 



T f IT L IMU IPUl J 
KT < T 1 U T Mil , TPIO1 

- TA(TTI 
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Input Data 



TABLE OF KT VALUES 

, .01C3fi36<)l.Cl39')27 

.COe352267.0135S726<i.CU2S47 
.C1132GB .CC7053kfi 

,00501412 .013l59J(Jti.(;l77e3 
,LO',69919 .CC9207fc'. .C-172229 
.C1138U .0130237 .C133494 

.C15Z562 



TABLE OF EST VALUES 



.0122496 .0226051 



008331056. 01 5699449. (,271836 
COC5CCCO .CCS757U .C198626 
.0162E66 .0562627 



. 0330927 
.CCCUtQ 



COR96465 
C5P517C36.04353RI 

COCCCCO .CCCCCO 



.C192561 


2.75 


1.25 


. es 


K t 


.C1S9945 


1.65 


.75 


.55 


.35 


.C 1C 2575 


.75 


.25 


. 15 


.25 


.C2CC43 C . 


7.95 


3.05 

2.05 


1.65 

1.45 


1.35 
.95 




1.15 


.75 


.35 


.15 


.0252810 
.C252P1C 

.C43140E 


6.25 
2.35 


3.55 
3.5C 
.65 


2.35 
1.55 
.35 


1.55 
1.05 
.25 


.C4G5776 
.C26354C 


9.65 
7.55 


4. 15 

2.95 


2.25 
1.55 


1.25 
.65 




3.55 


l.Cb 


. 35 




C6251C5 


7.05 


2.75 


1.55 


.75 




.45 


.25 






. r r c r f. o c 


o.oc 


o.cc 


C.CC 


C.CC 



LU6BOCK 



PLACE M PI IDATE DEPTH GP 

1.0 3.3 4-28-71 5.0089.00 

SEED-LEVEL TEMPERATURES 



69 
55 
69 
80 
61 
72 
BO 
65 
73 
79 
64 
73 
T9 
64 
75 
71 
65 
71 
81 
65 
68 
72 
57 
74 
76 
9999. 


68 
54 
67 
83 
60 
70 
82 
64 
72 
80 
63 
71 
81 
63 
73 
73 
65 
69 
82 
64 
68 
74 
55 
71 
79 


69 
54 
66 
84 
60 
68 
83 
63 
71 
80 
63 
69 
82 
63 
71 
73 
66 
67 
83 
64 
66 
76 
54 
69 
80 


69 
55 
65 
84 
62 
67 
83 
64 
70 
80 
64 
68 
80 
64 
70 
73 
67 
67 
82 
64 
65 
76 
54 
68 
81 


69 
58 
64 
82 
63 
66 
82 
65 
69 
79 
66 
66 
79 
66 
69 
72 
69 
64 
81 
66 
64 
76 
57 
66 
81 


68 
62 
63 
81 
67 
64 
81 
68 
68 
78 
68 
65 
78 
68 
68 
71 
72 
63 
79 
68 
63 
76 
63 
65 
79 


67 
68 
62 
78 
71 
64 
78 
71 
67 
77 
72 
64 
77 
71 
67 
69 
71 
63 
76 
70 
62 
74 
65 
63 
78 


65 
72 
62 
74 
74 
62 
76 
74 
66 
76 
75 
63 
74 
76 
66 
68 
77 
62 
73 
72 
62 
73 
70 
62 
74 


64 
75 
61 
72 
76 
61 
74 
76 
65 
75 
77 
62 
72 
78 
65 
67 
79 
61 
73 
73 
61 
69 
74 
60 
72 


62 

78 
61 
71 
79 
61 
73 
79 
65 
74 
79 
61 
70 
82 
65 
66 
80 
61 
73 
73 
60 
66 
77 
60 
71 


61 
79 
61 
69 
80 
61 
71 
80 
65 
73 
BO 
61 
70 
84 
64 
66 
81 
63 
71 
74 
60 
65 
80 
58 
70 


60 
79 
61 
67 
80 
62 
70 
81 
66 
72 
80 
63 
68 
84 
65 
65 
80 
66 
70 
75 
61 
63 
81 
59 
68 


59 

78 
65 
67 
79 
65 
69 
80 
68 
71 
79 
66 
67 
84 
65 
65 
79 
68 
69 
73 
63 
62 
82 
60 
67 


58 
76 
68 
65 
78 
68 
68 
79 
70 
69 
76 
67 
65 
82 
66 
65 
77 
72 
68 
73 
65 
60 
81 
65 
66 


57 
74 
72 
63 
76 
74 
67 
77 
74 
68 
76 
71 
65 
80 
67 
65 
75 
74 
67 
71 
67 
53 
79 
69 
66 


56 
71 
75 
63 

74 
76 
66 
75 
77 
66 
74 
76 
64 
77 
68 
65 
72 
80 
66 
69 
69 
57 
76 
71 
65 
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OC*TI,ON| IURBOCK 



Output Data 

1,00 PHVSTCAL IHPFDANCEI 3.3 DATFI 428ri 



ME 


TEMP 


MOS 


KL 


nWATFR 


DFLM08 


TWATFR 


1,00000 


20,95556 


.90000 


,06679 


5.14127 


.16441 


5.14127 


2,00000 


20,00000 


.90000 


,06486 






10.18577 


3,0000ft 


20.55556 


,90000 


,06679 


4,66?96 


.18441 


14.84875 


4,00000 


20,55556 


,90000 


,06679 


4.151B1 


,18441 


19.30024 


9.00000 


20,95956 


,90000 


,06679 


4,06087 


.18441 


23.?6111 


6,00000 


20,00000 


,90000 


,06486 


3,6802* 


.1685? 


26.94139 


7.00000 


19,44444 


.90000 


,06?99 


1 fl l4?10 


.15107 


30,28350 


8,00000 


18,13131 


,9000ft 


,05940 


3, 95107 


.12146 




9,00000 


17,77778 


,9QOOO 


.0576R 


?, 69740 


.1093? 


35,93197 


10,00000 


16,66667 


,90000 


,05441 


2,19754 


,08331 


38,13151 


11.00000 


16,11111 


,90000 


,05289 


?a?0?19 


,06948 


40.53169 


12,00000 


19,95556 


,90000 


,05135 


?. 02640 


.05708 


42.56010 


13.00000 


19,00000 


.90000 


0,00000 


0,00000 


0,00(100 


43.56010 


14,00000 


14,44444 


.90000 


0,00000 


0.00(100 


0,00(100 


43.56010 


15,00000 


11,88889 


,90000 


0,00000 


0.00000 


o.ooooo 


4?. 56010 


16,00000 


11,13131 


.90000 


0,00000 


0,00000 


0,00000 


4?, 56010 


17,00000 


13,77778 


.90000 


o.ooooo 


o.ooooo 


0,00000 


43.56010 


18,00000 


1?,?2?2? 


,90000 


0,00000 


0,00000 


0,00000 


43.56010 


19,00000 


13,3222? 


,90000 


0,00000 


0,0000(1 


0,00000 


43.56010 


20,00000 


1?, 77778 


,90000 


0,00000 


o.ooooo 


0,00000 


42.56010 


21,00000 


14,44444 


,90000 


(1,00000 


0,00000 


o.ooooo 


43.56010 


22,00000 


16,66667 


.90000 


,05441 


?. 03703 


,08333 


44.59711 


23.00000 


20,00000 


.90000 


.06486 


?, 3.9635 


.1685? 


46.89148 


24,00000 


22,?2?2? 


,90000 


,07289 


3,41111 


,?9594 


49.30661 


25,00000 


23,88889 


,90000 


,07946 


?, 43901 


,40?24 


51.74564 


26,00000 


29,55556 


,9QOOO 


.08651 


3.44440 


.51623 


54.19004 


27,00000 


26.11111 


,90000 


.08897 


2.?9630 


.55591 


56.48634 


28,00000 


26,11111 


,90000 


,08897 


?.09?QO 


.55593 


58.57831 


29,00000 


25,55556 


,90000 


.08651 


1,85327 


.51622 


60.43161 


30,00000 


24.44444 


,90000 


,08176 


1, 59994 


.43938 


62.03155 


31,00000 


21,13331 


.90000 


.07722 


1,38753 


.16595 


63.41907 


32.00000 


21,66667 


.9QOOO 


,07080 


1,17400 


.36321 


64.99307 


33,00000 


20,95556 


.90000 


.06679 


1.02904 


.13441 


65.62311 


3'4 fl OOOOO 


19,44444 


,90000 


,06399 


.90565 


.15307 


66.52776 


39.00000 


18,88889 


.90000 


.06117 


.82406 


.13805 


67,15162 


36.00000 


18,13331 


,90000 


,05940 


.75128 


,12146 


68.10310 


37,00000 


17.77778 


,90000 


,05768 


.68624 


.1093? 


68.78931 


38,00000 


17.?232? 


.90000 


,0560? 


,62800 


,09560 


69,41734 


39,00000 


16,66667 


,90000 


,05441 


.57578 


,(I8?31 


69.9911? 


40,00000 


16.66667 


.90000 


,05441 


.54445 


,08331 


70,53757 


41.00000 


16.11111 


.90000 


,05385 


.50009 


.06948 


71.03766 


42.00000 


16, 1 1 1 1 1 


,90000 


.05385 


,47166 


,06948 


71.5113? 


43,00000 


16.11111 


.9QOOO 


,05385 


.44863 


.06948 


71.95995 


44,00000 


16,11111 


,90000 


,05?85 


.4249? 


.06948 


73,16487 


45,00000 


18,13133 


.90000 


,05940 


.4533? 


.12146 


73.83719 


46,00000 


20,00000 


,90000 


,06486 


.46460 


.1685? 


71.30180 


47,00000 


23,?2?2? 
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By J. M. McKinion, D. N. Baker, J. D. Hesketh, and James W. Jones 2 



INTRODUCTION 



On the following pages we document a seg- 
ment of our work in the simulation of cotton 
growth and yield and provide operating instruc- 
tions for the resultant computer model SIMCOT 
II. 

This work began as an effort to assess the 
theoretical yield limits in commercial upland cot- 
tons through the calculations of photosynthate 
production and respiratory losses (2, 3) 3 and 
evolved into an analysis of the physiological rea- 
sons for the failure of these cottons to attain this 
potential. Stapleton (7) and Stapleton and Mey- 
ers (9) had called for the application of systems 
methodology to this problem for the purpose of 
design and optimization of machinery arrays, 
and this work resulted in the first digital-com- 
puter simulation of cotton growth (5). Similar 
work was begun independently and at about the 
same time by A. B, Hearn (4) in Uganda/ 1 

SIMCOT II is a direct descendant of SIMCOT, 
which was developed by Duncan (5), The over- 
all approach is the same; the calculation of daily 
production and distribution of photosynthate. 
The model continues the same philosophy of 
fruiting, the triggering of abscission of fruit, 



1 Cooperative research of Agricultural Research Serv- 
ice and the Mississippi and South Carolina Agricultural 
Experiment Stations, 

2 Electrical engineer, research agronomist, plant 
physiologist, and agricultural engineer, Southern Re- 
gion, Agricultural Research Service, U.S. Department of 
Agriculture, P.O. Box 5466, Mississippi State, Miss. 
39762, 

3 Italic numbers in parentheses refer to items in "Liter- 
ature Cited," p. 82. 

* Personal communication, 1970, 



and delays in node formation in response to 
physiological stress in the form of carbohydrate 
shortage, and it continues to limit above-ground 
vegetative growth relative to root growth in re- 
sponse to moisture stress. Development is still 
programed in physiological time (a function of 
temperature) . 

There are, however, a number of fundamental 
changes. A plant-map subroutine has been add- 
ed, which keeps track of the age, weight, and 
nutritional status of fruit at every node. This 
provides an interface of insect damage routines. 
A nitrogen-balance subroutine has been added, 
Light interception is based on plant height rath- 
er than leaf-area index. Height is a useful index 
of the overall foliage display and is not density 
dependent as is leaf-area index, 

The systems analysis has resulted in other 
basic changes. We have found that carbohydrate 
reserves are all available on a temporary basis 
and (now) may approximate 30% of the dry 
leaf weight. We have found that only squares 
(about 12 days old) are abscised in response to 
carbohydrate stress and only squares within a 
few days of bloom and very small bolls are ab- 
scised in response to nitrogen stress. The most 
fundamental advance of SIMCOT II lies in the 
abolition of the "standard plant" as a means of 
calculating potential growth. The logic replacing 
the standard plant was essential to the simula- 
tion and incorporates the notion of senescence of 
stem and root tissue. This will be described in 
detail elsewhere, These changes represent new 
knowledge about the physiology of cotton, which 
could not have been obtained through classical 
reductionist experimental research. 
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SIMCOT II is essentially a carbohydrate bal- 
ance. Beginning; with emergence, light intercep- 
tion is calculated daily from plant height. From 
this, photosynthesis is calculated for a unit of 
ground area. Then, light respiration, mainte- 
nance respiration, and growth respiration are 
calculated and subtracted from photosynthesis to 
give a net increment of carbohydrate available 
per plant for growth on that day. Daytime and 
nighttime increments of growth of roots, stems, 
leaves, and fruit are calculated separately. The 
decision as to whether or not to grow leaf and 
stem tissue is based on estimated plant water 
stress. All potential growth is based on tempera- 
ture. 

Leaf weights were obtained weekly from large 
samples of plants grown in State College, Miss., 
in 19G9. From these data a table of daily weight 
increments was constructed. A drought early in 
1969 caused abnormally small leaves. Therefore, 
to obtain the potential (well-watered) leaf in- 
crements needed by SIMCOT II, we multiplied 
the 19G9 data by a factor (LEFADD) to obtain 
reasonable leaf weights in the simulations (ta- 
ble 4-1) . The system's temporary carbohydrate 
storage capacity is equal to 80 $> of the leaf 
weight. Maximum carryover time is 1 day. Leaf 
senescence is simulated by subtracting from the 
leaf weight the increment added 70 days previ- 
ously. 

TABLE 4-1. Factors to be used to 
adjust leaf area production 



Plant 
population 



LAPADD 



20,498 

41,000 

80,000 

126,000 



1.75 
1.85 

1.00 
1.00 



Stem growth was developed as follows: Stem 
weights from the 1969 weekly plant samples 
were used to provide potential stem weight in- 
crements for the first 42 days of growth. From 
day 10 to day 42 the growth data fit the following 
expression: 

AW =0.24- 0.06 (STMWT) , (4-1) 

where &W is the potential stem growth and 
STMWT is the accumulated stem weight in 
grams. 



After 42 days, potential stem growth was ob- 
tained from the expression 

AT<F=0.2-|-O.OG (STMWT / 24 ) , (4-2) 

where &W is change in weight in grams per clay, 
STMWT is stem weight in grams, and / 2 ., is stem 
growth 24 days earlier. 

Potential root growth is computed in the same 
way as stem growth, except that it is only 10 % 
as large and is not affected by moisture stress. 

The growth of each fruit is kept track of indi- 
vidually in two-dimensional matrices (one axis 
representing the main-stem node number and the 
other axis, the fruiting-branch node number) . 
Temperature effects are accounted for in com- 
puting the date of initiation, bloom, and boll 
opening. Potential weight increments for each 
fruit are taken from a table of weight incre- 
ments versus fruit age. The data in that table 
are taken from fruit grown with an abundant 
supply of carbohydrates. 

The carbohydrate requirements for potential 
growth of all organs is summed and then divided 
into the net carbohydrate available. All organ 
weights are incremented by that fractional 
amount of their respective potential growth. If 
the ratio is greater than 1, the excess is stored in 
temporary reserve. Any excess beyond 30 $> of 
leaf weight is assigned to the stem weight and 
root weight. 

When the first square is 6 days from bloom, a 
term called BOLINC is computed as the ratio of 
actual to potential fruit growth. If BOLINC is 
less than 0.85, stresses are said to exist, which 
cause the squares to abscise and delay the forma- 
tion of new nodes, as shown in the flow charts 
below. All fruit within the appropriate age brac- 
ket are shed 8 days from the occurrence of the 
stress. 

The Crops 

One crop used to verify our simulation was 
grown in State College, Miss., in 1961 by Bruce 
and Romkens (4) . Briefly, the treatment they 
used was as follows: The cotton variety was a 
doubled haploid, 'Deltapine M8948'. Before 
planting, fertilizer was broadcast at the rates of 
75 Ib N, 44 Ib P, and 83 Ib K per acre. Three side- 
dressings of 75 Ib N each were applied at 4-weelc 
intervals after planting. The plants emerged on 
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May 9 and were uniformly spaced in 91-cm rows 
at 20,498 plants per acre. The soil was irrigated 
to field capacity whenever tensiometer readings 
reached 0.3 bar. Insect control was nearly com- 
plete. Ten plants were mapped weekly, and the 
status of the fruit at each node was recorded. We 
summarized those data to produce weekly maps 
of an average or representative plant. 

Another crop grown commercially and de- 
scribed by Jenkins et al. (tf) was planted in 
101.6-cm rows at 41,000 plants per acre in 1972 
in Copiah County, Miss. At planting, fertilizer 
was banded at the rates of 20 Ib N, 17.5 Ib P, and 
33 Ib K per acre. Some moisture stresses were 
allowed to occur during the season. Again, insect 
control was very good. Square and boll counts 
were made weekly on 30 meters of row. 

Results 

More detail on these validation experiments 
can be found in papers by Baker et al. (1 ) and by 
Jenkins et al (tf). Main-stem node number and 
fruiting site production in the 1961 crop are pre- 
sented in figure 4-1. The data describe a typical 
sigmoid growth curve. Growth is exponential at 
first, becoming linear as maintenance respira- 
tion becomes significant and leveling off some- 
what as carbohydrate shortages brought on by 
the high demands for boll growth delay the for- 
mation of new nodes. 

Real and simulated fruit production is pre- 
sented in figure 4-2. To track square production 
this well early in the season, the model was pro- 
gramed to abscise pinhead squares (1 day old) 
in response to solar radiation levels above 700 
ly/day. The carbohydrate stresses are mild at 
first, becoming more severe as the season pro- 
gresses until some of the bolls mature and open 
around September 14. Day-to-day variation in 
the stress was caused by variations in the weath- 
er (mainly solar radiation) . 

Two points should be mentioned here concern- 
ing the development of this simulation: First, in 
order to track properly the early onset of stresses 
(as evidenced by 'square shedding and a leveling 
off of site production in the real system) , we had 
to acknowledge the existence of a large vegeta- 
tive sink. Numerous mechanisms were tried and 
coefficients used before we developed equation 
4-2. This equation states that potential stem 
growth is proportional to the weight of the 



vegetative sink and that tissue no longer contrib- 
utes to sink strength (capable of cell wall thick- 
ening) after 24 days. The second point is that all 
earlier (unvalidated) versions of SIMCOT were 
based on the assumption that the fruit is most 
likely to abscise in response to stress at bloom 
(about 26 days) and that progressively greater 
stresses would bracket that, with wider and wid- 
er age envelopes of fruit abscised. To accomplish 
this simulation, we were forced to abandon that 
assumption in favor of abscission at an earlier 
age (12 days). Depending on stress intensity 
then, the present model marks squares 8 to 13 
days old, and they are 16 to 21 clays old at ab- 
scission. Abscission of any bolls ruins the simu- 
lation. We believe, therefore, that boll shed re- 
sults from nitrogen stress. 

Figure 4-2 shows apparent regrowth 
(squares) on the 140th clay. We had stopped 
mapping the real plants before that time, so no 
data are available to verify this. The model pre- 
dicts regrowth because the maturing of some 
bolls made additional photosynthate available 
for development of new meristems. 

The model crop reached a maximum leaf-area 
index (LAI) of 4.2 on day 95 (August 12) and 
yielded 2.98 bales per acre. 

The computer output for the 1972 Copiah 
County crop is presented under "Example 
Runs." This simulation was obtained with the 
same program as above. The real plants, on the 
average, and the model plants both produced 
seven bolls for a yield of 1.68 bales per acre. 
Again, fruiting was simulated almost perfectly. 
This crop abscised eight young bolls in response 
to nitrogen stresses. 

We feel that this is a minimal validation ef- 
fort. SIMCOT II obviously simulates Delta cot- 
tons well in the Midsouth. We expect that it will 
do well in the Southeast and in much of Texas. 
At present certain modifications are necessary 
for use on the Texas High Plains and in dryland 
areas. Generally, these modifications are simple 
to make and should be considered in the follow- 
ing order: 

1, Make sure that the algorithms in PNET for 
computing plant height and light interception 
are performing properly for your crop. This has 
required modification for "okra leafed" cottons 
and for High Plains varieties. 

2. Be sure first square occurs on the proper 
date. For the High Plains varieties a different 
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number of physiological clays to first square 

must be used. 

3. The WATERZ subroutine is simple. Under 
dryland conditions modifications in selecting 
plant water stress levels may be needed. 

a. 



e o Sim. Nodes 
o o o Real Nodes 



O JO 

z 

HI 

* 

z 



Weaknesses in the simulation in these areas 
have pointed to potentially productive future ex- 
periments. As new information becomes avail- 
able, we {and we hope others) will make appro- 
priate modifications in the model. 
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FIGURE 4-1. -A season's time course of main-stem node and fruiting site development. Open circles and lines trace Iho 
real crop planted at 20.498 plants per acre, Upper, middle, and lower solid circles represent model predictions for 
20,498, 41,000, and 80,000 plants per acre, respectively. 
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ooo Real Bolls 

1 eoo Sim. Bolls 

\ ODD Real Squares 
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Days from Emergence 

FIGURE 4-2. Seasonal time course of fruiting for the real crop and for simulated crops at 20,498 plants per acre under 

normal and all clear skies. 
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DESCRIPTION AND FLOW CHARTS 



THE MAIM PflOGRAM INITIALIZES ALL VARIABLES, READS IN WEATHER DATA, PLANT 
MANAGEMENT DATA AND CALLS ALL SUBROUTINES TO GROW THE PLANT. AFTER THE PLANT 
HAS flEEN GROWN TO THE END OF THE SEASON, THE MAIN PROGRAM THEN PRINTS PERTINENT 
^FORMATION SUCH AS BALES PER ACRE. NUMBER OF OPEN BOLLS. THE USER CAN CAUSE 
THE PROGRAM UST THE PLANT MAP AS OFTEN AS DESIRED OR NOT AT ALL. IF THE 
JSER DESIRES, HE CAN ALSO HAKE CHANGES 1 If THE FRUIT MATRIX TO SIMULATE INSECT 
DAMAGE. 



END 
SEASON 



SUBROUTINE SUNTYH 



READ: 

DAY OF TEAS, 
LATITUDE, . 
i DECLINATION / 



THIS PROGRAM COMPUTES THE LENGTH OF THE OAY FOR ANY DAY OF THE YEAS, 



(-SIN LATITUDEl'SlUCDECLIHftTlOim 



OAYlENGlH-a*(l?.Q-SIBim5E) 
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SUBROUTINE W A T E 




TIMS PROGRAM ADJUSTS SOIL MOISTURE FOR EVAPORATION A1IU DAINFALL AMD 
EVALUATES PLANT STRESS IN TERMS OF WATER REMAINING IN THE SOIL AND THE 
PAN EVAPORATION FOR THE OAY, ARfi I TKAR I LV . CLIMAT (JJ.4) IS RAINFALL AND 
CLIHAT (JJ.5J IS PAII E UAPOSAT I Otl FOR THE JJTH OAV . RUNOFF (OR SGAKTIIRQUGH ) 
IS CALCULATED. MOISTURE STRESS IS CALCULATED FHOM THE COMBINATION OF 
SOIL WATER CONTENT AND EVAPORATIVE DEMAND AS MEASURER BY PA" FVAPDfiAT I ON . 

(1) AND (2) ARE ARBITRARY RELATIONSHIPS. 



(2) 



SUDROUTINE P I! Z A Z 



/ CALL: 

/MAXIMUM AND MINIMUM TEMPS., LENGTH OF 
\DAV, FACTORS CONVERTING MAX AND H1N 

\TEHPS TO DAY AtlD NIGHT AVERAGE TEMPS.. 



COMPUTE DEVELOPMENT RATE, 
ISOPJIASE OR PLASTOCIIROH 
AS f(T) 



THIS PROGRAM CALCULATES THE LENGTH OF EACH PHYSIOLOGICAL DflV AMD 
NIGHT BASED ON THE ESTIMATED AVERAGE TEMPERATURE OF EACH IN C. One 
PHYSIOLOGICAL DAY IS A 24 HOUR PERIOD IN WHICH THE AVERAGE TEMPERATURE 
MAS 26C. IF THE AVERAGE TEMPERATURE WAS LESS THAN 26C, THEN HE HAVE 
A FRACTlnil OF A PHYSIOLOGICAL DAY . IF THE AVERAGE TEMPERATURE IS 
GREATER THAN 2GC, THEN HE HAVE A PHYSIOLOGICAL OAY PLUS A FRACTION. 



COMPUTE OEVELOPMINT DURING 
DAY AMD DURING MIGHT AS 
FRACTION OF STANDARD PLANT 



OAY PLUS NIGHT DEVELOPMENT 
PHYSIOLOGICAL DAY AS 
FRACTION OF CALENDAR OAY 
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S J a R U I 1 It E 





CALCULATE PTS 
REDUCTION FACTOR 
[PT5RED1 




THIS SUBROUTINE CALCULATES THE MV'S INCREMENT OF NET PHOTOSY "THATE 

pnoonri 0)1 PO PLANT IKE FRACTION nr INCIDENT LIGHT INTERCEPTED (LYTCPTJ 

nv THE PUNT CAMPY S COMPUTED FROM EMPIRICAL DATA BASED OH PLANT HEIGHT (Z). 
PTSflED IS THE FACTOR B V WHICH LErtF HILTINB REDUCES THF RATE OF PHOTOSYNTHESIS. 
PSTAHO S POTENHAL GROSS PHOTOSYHTHATE PRODUCTION BY THE PLAI1T CANOPY BASED 
oS DAILY TOTAL SOUR RADIATION (WATUM). THE POTENTIAL DAY'S MOSS PHOTO- 

S?NTHAT JRODUCTIOM (PSTAND) is REDUCED BY THE """STRESS ACTOR BED) 

Aliri nv IY-TCPT AI1D FINALLY 0V A PLANT POPULATION FACTOR (POPFAC) TO GIVE 
iSoTOSTNTHATE PROOIICTION ON A PER PLANT BASIS (PPLANT). THIS IS MSEH OH 
E^EfllK NTS IN INTAC CANOPIES AT 300 PPM C0. PPLANT IS THEN ADJUSTED FOR 
AM flUERASE DAILT CO? LEVEL ABOVE 300 IN FIEL& AIR. A PROVISION IS MADE FOR 
rKnTHEH ADJUS TNFNT to ACCOUNT FOR THE EFFECTS OF CO., FERTILIZATION ASSUMING A 
RELEASE OF ?00 LD/ACBE/HR FOR FIVE HinDAY HOURS. LlfiHT RESPIRAFIOH LYTRES) 
IS A FUNCTION OF T E HPEHAT URE AHD PROPORTIONAL TO PHOTOSVIITHATF PRODUCT I Oil . 
MAINTENANCE RESPIRATION IS PROPORTIONAL TO PLANT HEIGHT. GSUDR IS GROWTH 
RESPIRATION. 




RSUBL = a 
b'TDA/ 



LYTRES = 
B5UBL*PPLAHT 




SUBROUTINE 0,PRE(]2 



THIS SUOROIlTiriE CALCULATES THE REQUIRED PHOTOSYNTHflTE FOR 
GROWTH OF EACH PLANT PART: ROOTS, STfMS, LEAVES. AHO INDIVIDUAL 
FRUIT WHICH ARE OLDER THAN 22 DAYS. 



CALCULATE P 
REQUIREMENT FOB 
FRUIT OLDER 
THAN 22 DAYS, 
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CALL: 
STD. P JiEQJIflrMENT, STRFSS, 
PTQTAL. flEEtHYES III STALKS 
AND LEAVES 






INITIALIZE ROTH 
AND STHW HI Til 
YESTERDAY'S ROOT 
WT AMD STEM WT 




THIS CROr.1AM COMPUTES THt PHOTOS V N T tlATf IJSEil FOR 
PLANT GROWTH FOR TUf DAY. STfW rtND flOTW ARE 5-ET TO 
TODAYS SUM AND ROOT WEIGHT BEFORE ANY GROWTH OCCURS. 
THESE TWO VARIABLES ARE THEN USED III PLTHflP TO RETIRE 
STCM AND ROOT MATERIAL OLDER THAU 11 DAYS TPM THE 
RESPIRING OlOfflS. MAXIMUM CH-0 RESERVE SIZE FQIJALS 30 
PERCENT OF THE LTAT DRY HEIGHT. IT IS ALL AVAILABLE OH 
ANY GIVEN DA*. PTflTflL = V'.l < RESERVES. EXCESS PHOTO- 
SVinilATE DEVOUR THAT HEEDED FOR GROWTH AND PtfSERVES [5 
ACCUMULATED AS DRY MATTTR IN THE ROOTS. 



I! fl R U T I tl P Q II Y T 2 



THIS PROGRAM CALCULATES THE PHOTOS* NTHAT E 
FOR PLAJIT PARTS FOB THE NIGHT AfID COMPUTES THE HEIGHT 
GftlllS EXCEPT FOR ffiUIT. IT ALSO COMPUTES HHETHEfi BOLt 
SET WILL OCCUR flASE!) ON THE CIRCULATED C ARROIIVDRATE 
STRESS OR LACK OF [T. POLYIIA IS THE VARIABLE USD TO 
DETERMINE BOLL SET AND IT GIVES A VALUE, SIGNALS THAT 
A DOLL MAY RE SET IF A BLOOM IS PRESENT. 
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5 U F R J T I N E HIT 




THE NITROGEN SUBROUTINE CALCULATES A NITROGEN BALANCE FOR 
THE PLANT NITROGEN R EQU 1 DEMENTS FOR STEMS, ROOTS. AND LEAVES ARE 

ALCULATED AS A FUNCTION OF INCREASE OF WEIGHT OF THE GROWING 
TISSUES OF THOSE PUNT PARTS. THE SEED AND GURU RfOlJIHEMENTS ARE 
CALCULATED AS A FACTION OF TOTflL FIHI1T HEIGHT. NITROGEN UPTAKE 
IS CALCULATED Oil A PLANT OASIS AS A FUNCTION OF WATER STRESS. 
THIS NITROGEN IS TAKEN FROM A NITROGEN POOL 111 THE SOIL THAT 
CONSISTS OF RESIDUAL NITROGEN FROM THE PREVIOUS YEAR, NITROGEN 
FROM DECOMPOSITION OF ORGANIC MATTER. AND NITROGEN FROM PRE- 
EMEKGENCE AND S I DEDRES S ING APPLICATIONS. 

WHEN TltE PLANT DEHANO EXCEEDS WHAT CAM fiE TAKEN UP DAILY, A 
NITROGEN STRESS (NSTRES) IS DETERMINED FROM THE SEVERITY OF THt 
SHORTAGE, IF MORE NITROGEN IS TAKEN UP THAN CAN HE USEO. THEN 
THIS EXCESS IIITROGEN IS STORED IN LEAVES. STEMS, AND HOOTS AND 
THE RESERVE IIITROGEII THAT THE PLANT CAN DRAW Oft FOR GROWTH IS 
CALCULATED AS A FUNCTION OF TOTrtL STEM, ROOT AND LF.AF WEIGHT. 
THUS WHEN THE PLANT IS IN A SHORTAGE SITUATION IN WHICH THE DEMAND 
IS MORE THAU SUPPLY OF NITROGEN THAT CAN HE TAKEN UP FROM THE SOIL 
POOL OF NITROGEN OY THE ROOT SYSTEM. THE PL MIT CAN DRAW ON THE 
RESERVE NITROGEN POOL WHICH CONSISTS Or NITROGEN STORED IN ROOTS, 
STEMS. AND LEAVES. THUS A COMPLETE NITROGEN BALANCE IS PERFORMED 
BY THIS SUBROUTINE. 
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S II R R I) T 1 
HOW 30 K 



REMOVE ALL STEM AND ROOT 
MATERIAL OLHER THAN 2* 
DAYS FROM BIQMASS 





P L T M A. P 



THIS PROGRAM INITIATES SQUARES, MAIIISTEM NODE' 1 ;. FRUITING 
BRANCH I5ITERNODES, AND A SINGLE VEGETATIVE BRANCH. BOLINC 15 
COMPUTED BASED Of! TODAYS BOLL GROWTH DIVIDED RV THE POTENTIAL 
GROWTH. CARBOHYDRATE STRESS IS THEN COMPUTED FROM RflLlliC 
PUIHEAD SQUARES APE rtnSCISr.il IF SOLftR BABIftTIOH IS GREATER 
THAU 700 WATTS/M?, OEUV5 IN l-nP'-lll.'C NLM MAIIiSTEM NODfS AND 
FHU1TIHR BRANCH INTFRItOOES ARE GENERATED IF THERE IS ft CAHBO- 
HYDfWTE STRESS. SOUftRES OF AN AGE CENTERED JU 12 OAVS ARE 
ABSCISED IN RESPONSE TO CARBOHYDRATE STRESS ALSO. 



AT TIME OF 1ST SQUARE, CALCULATE NUMBER 
Or NODES OH VEGETATIVE BRANCH AND NUM- 
BER OF NODES ON FRUIT 1KB BRANDIES OFF 
THE VEGETATIVE BRANCH. ALSO TIME OF 
FORMATION OF 1ST NODE ON FRUITING BRANCH 
OFF VEGETATIVE BRANCH. 



INITIALIZE ALL WEIGHTS AND 
COUNTS, AHH COMPUTE DOLIHC 




COMPUTE NUMBER AND INCREMENT 
WEIGHT OF GREEN BOLLS AND 
OPEN BOLLS 
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SUBROUTINE P I T M A P 




IHA1N = TNAIIil * 2.5 
INCREMENT MftlNSTEH NODE NUMBER AltO 
CALCULATE TIME OF APPEARANCE OF 
SqiTARE OH flEH FRUITING BRANCH 





XTRE5 

1 THA1H = TWAIN * .0 , TV = TV + .0 

2 " " .10, " " .40 

3 " " ,70, " " .70 
A ' " 1.00. " " 1.00 



DO FOR EACH NODE 



1 T(L) = T{L) * .2 , TBRV(LV} 

2 " " .6 , " 

3 " 1,2 , " 

4 " 1.5 , " 



TDRV(LV) 



' .2 

.6 

1.2 

1.5 




XTflES 

1 ABSCISE IF 12 DAYS OLD 

2 " " 12 " " 

3 " " 9-12 DAYS OLD 
i) " " 8-13 " " 



TV = TV * 2.5 

INCREMENT VEGETATIVE BBANCH KMNSTEH 

NODE NUMBER AND CALCULATE TIME OF 

flPPEARAIICE OF SQUARE OH NEW FRUITING 

BRANCH 



NSTRES 

3 ABSCISE BOLL IF UP 
TO 33 DAYS OLD 

4 ABSCISE BOLL IF UP 
TO 3B DAYS OLD 









DO FOR EflCII FRUITING 
BRANCH MODE 



SET COUNTERS FOR TODAY'S DOLL AMD 
SQUARE LOSSES = 
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DEFINITION OF TERMS 



Main Program 

ADD Factor used to adjust LAI for dif- 

ferent plant populations. 
AGE Counter for real time. 

ALAIFC Leaf area ratio (leaf area/leaf 

weight) . 

ATL(3) Not used. 

BALECT Bales per acre. 

BALEFC Used in determining flowering rate 

based on plant population, 
BLOOM' Number of fruit lost due to bloom 

sticking. 

BOLINC(J) Percentage of total boll demand, dry 

weight, added each day. J is time 
from emergence. 
BOLLST Number of bolls lost on a given day 

due to carbohydrate shortage. 
BOLRES Boll respiration. 

CLIMAT(J.I) Same as KLYMAT, but used to store 
weather data that is used in grow- 
ing season. Julian day changed to 
day from emergence. 

CLIMXX Variable used to reorder weather 

data based on days from emergence 
rather than Julian day. 
COSLAT COS f LATUDE) . 

COTXX Weight of mature bolls. 

COS Carbon dioxide fertilization trigger. 

Read in with weather data. 

DAY Physiological time. Real variable. 

DAYFAC Factor used in calculating length of 

daytime physiological time. 
DECL (365) Variable used for calculating daily 

declination values. 

DECL1N(36B) Table of decimations read in. 
DIFSUM Not used. 

DMACRE Number of square decimeters in 1 

acre. 
EFF Factor for adjusting photosyntlietic 

efficiency of plant. 
ESUBT (I) Evapotranspiration of plant ESUBT. 

(I) has five values. 
EVAPFC Maximum transpiration considering 

pan evaporation, 

FAGE (L,M) Fruitage matrix for main plant. 

FAGV(LV.MV) Age of fruit in days from initiation 
at proper LV, MV location, vege- 
tation branch. 
FLOWER ' Used in determining flowering rate 

based on plant population. 

FR(L,M) Fruiting matrix for main plant. 

FRV(LV.MV) Fruiting matrix where fruit code is 
stored. LV is vegetative branch 
main-stem node number. MV is 
fruiting branch off of vegetative 
branch node number. FRV(LV, 
MV) ; 1 is square, 2 is green boll, 3 
is mature boll, 4 is abscised fruit 
site, 5 is square designated to ab- 
scise, and 6 is boll designated to 
abscise, 



GRCOTX 

GSUBR 

HISTD 

H20CAP 

H20REM 
H20REX 
H2ORUN 
I 

IOLD 



ISTSQR 



JB 



JJ 
JJK 



JNEXT 



JPLDAY 

JSEASN 

KCARDS 

KLYMAT (J..I) 



LAI 
LAST 



LATUDE 
LEAFW 

LEFRNU 
LEFSTF 
LEFWT 
LOSTD 



Weight of green bolls. 

Vegetative respiration. 

Factor used in controlling: boll set- 
ting. 

Water capacity of soil in inches per 
one-tenth of rooting depth. 

Water remaining in soil. 

Water remaining in soil. 

Calculated runoff of rainfall. 

Physiological time. Integer variable. 

Variable used in determining wheth- 
er or not a now physiological day 
has occurred. 

Trigger for subroutine PLTMAP. 
Time is physiological time to first 
square. 

Number used to select how often 
plant will be printed out. Used 
when LAST equals zero. 

Time from emergence. 

Trigger used in selecting output for- 
mat of the program. First day to 
be listed. 

Trigger for output in answering 
question from computer terminal 
"Do you want plant printed out on 
day JJ?" Answer "Zero" for 
"Yes;" ( 'l" for <No." 

Day .of emergence. 

SEASON + 2 Trigger to end simula- 
tion. 

Number of days of weather to Le read 
into KLYMAT by the computer. 

Environmental input to program. J 
is maximum number of days, equal 
to 300. I refers to different envi- 
ronmental variables. 1 is solar radi- 
ation in Innglcys per day. 2 is maxi- 
mum daily temperature in degrees 
Fahrenheit. 3 is minimum daily 
temperature in degrees Fahrenheit. 
4 is rainfall in inches per day. 5 is 
pan evaporation in inches per day. 
8 is Julian day number. 7 is a CO 2 
trigger. 

Leaf-area index (DM 2 /DM E ). 
Trigger used in modifying matrices 

for simulating insect damage of 

plant. Zero means no changes. 1* 

means changes in matrix. 
Latitude of crop being simulated. 
Previous day's leaf weight. Used in 

calculating senescence. 

Exponent used to adjust gi'oiyth rate 
of leaves. Equal to 1. 

Percentage of leaf weight that can be 
used to store excess carbohydrate. 

Active tissue weight of leaves. Range 
through 70 days, 

Standard controlling boll setting. 
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MATURE 
MINFAC 
MI NUTS 
NBKV 
NEWDAY 



NGREEN 
NOBR1 

NONOD 

NSUM 

NSTJMMB 

NSUMBO 

NSUMNO 

NSTJMSQ 

NUMBER 

NUMBV 

NUMGRN 
NUMOPN 
NVEG 

NYTTYM 



NYTFAC 

PAVAIL 
PBOLL(J) 

PCOT(J.I) 



PLANT 
PLANTW 

PLTDAY 
POLYNA 



POPFAG 

POPPLT 
PQBOLX 

PREQ 

PRES 
PRESX 

PRT(L.M) 
PRI(L.M) 

PRTV(LV,MV) 
PRIV(LV,MV) 



SEASON + 1 Trigger to end simula- 
tion. 

Constant used in calculating the dec- 
lination. Equal to 0.0002909. 
Variable used in calculating the dec- 
lination. 
Number of nodes on longest fruiting 

branch of vegetative branch. 
Trigger used in telling when a new 
physiological tlay has occurred. 1 is 
new. Zero is same. 
Not used. 
Number nodes on longest fruit biff 

branch of main stem. 
Nth node of main stem. 
Total fruiting sites. 
Total number of mature bolls. 
Total number of green bolls. 
Number of main-stem nodes. 
Total number of squares. 
Number of fruit to be removed 

(changed) on main stem. 
Number of fruit to be removed 

(changed) on vegetative branch. 
Number of green bolls. 
Number of open bolls. 
Nth node of vegetative branch main 

stem. 

Factor used in finding average night 
temperature from minimum daily 
temperature. 
Physiological time of night. Based on 

temperature. 

Available photoaynthate for growth. 
Boll; weight increments. J is days 
from flower where flower is day 1. 
Daily weight increment of plant 
parts. J is day from emergence. I 
classifies plant part. 1 is roots, 3 is 
stems, 5 is leaves, and 7 is flowers. 
2, 4, 6, S, and 9 are not used. 
Total plant weight. 
Total plant weight leas any mature 

boll weight. 
Day of emergence. 

Polination factor, Zero is conditions 
favorable for poliuation. 1 is con- 
ditions unfavorable for polination. 
DMACRE/POPPLT. 
Number of plants per acre. 
Growth requirement of bolls on daily 

basis. 
Photosynthate required for I day's 

growth. 

Permanent reserve of photosynihate. 
Permanent reserve of photosynthato. 
Matrices used in printing alphanu- 
meric representation of main 
plant. 

Matrices used in listing alphanumeric 
representation of vegetative 
branch, X is square, * is green boll, 
# is mature boll, ia abscised fruit 



site or main-stem node, I is fruit- 
ing branch internode, and = is 
main-stem internode. 

RADFAC Radian factor used to convert de- 

grees to radians. 
RESADD Fraction of stalk storage available 

per day. 
RESUFC Maximum stalk reserves as fractions 

of stalk weight. 

RFALL Daily rainfall. 

ROOTWT Active tissue weight of roots. Active 

range, through 24 days. 
ROWSP Row spacing in centimeters. 

RSUBO Maintenance respiration as fraction 

of plant weight. 

RTS Root weight. 

RTSRUT Exponent used to adjust root growth. 

SEASON Length of season from day of emer- 

gence in days. 

SINLAT SIN (LATUDE) . 

SOILW(I) I is 10 layers of soil. Each layer is 

one-tenth of rooting depth. SOIl/W 
(I) is water content of the Itli 
layer. 

SQLOST Number of squares lost on a. given 

day due to carbohydrate shortage. 

STMRUT Exponent used to adjust stem growth. 

STMWT Active tissue weight of steins. Active 

range, through 24 days. 

STRL.MT Stress that stops leaf growth. 

SUMLEF Leaf weight. 

SUMRTS Root weight. 

SUMSTM Stem weight. 

TIME Real time increment. 

TOPRES Maximum leaf reserve storage of 

photosynthate as fraction of leaf 
weight. 

TRES Temporary reserve of excess photo- 

synthate. 
TRNSLF Factor to limit translation from 

leaves during day. 
Title; for example, "Mississippi 

Weather for 1961." 
Total individual boll weights. L is 
main-stem node number, M is fruit- 
ing branch node number. The first 
node of a fruiting branch is on the 
main stem. 
Individual boll weights on vegetative 

branch. 
Carbohydrate stress, through 4 

integer values. 

Table of values assigning: a numer- 
ical value to the stress resulting 
from the combination of soil water 
content and evaporative demand as 
measured by pan evaporation. 

Any other variables not defined above are concerned 
with printout of the program, 

Subroutine SUNTYM 
COSDCL COS(DCLVAL). 

DAYLNG Length of daylight in hours. 

DGLVAL Declination for day JDAY. 

JDAY Julian day. 



TTL(I) 
WTBOLL(L,M) 



WTBOLV 
CLV.MV) 

XSTRES 

XSTRESS(7,6) 



40 



SINDCL SIN (DCLVAL) . 

SUNRIZ Time from solar noon to sunrise. 

Subroutine WATERZ 

EXIT Trigger indicating that H20EXC is 

less than zero. 

H20DEF Soil water deficiency. 

H20EXC Excess soil water after deficit has 

been taken care of. 

1C Number of layers of soil WRT rout- 

ing depth. 

KMOIST Variable used to calculate second 

subscript of XSTRES(EVAP, 
NSW). 

NSW Subscript of array XSTRESS 

(EVAP.NSW). 

PANVAP Pan evaporation in inches per day. 

WATER Rainfall (irrigation). 

Subroutine PHZDAZ 

1>AYT Daytime physiological time based on 

temperature and length of day. 

DAYTYM Fractional physiological time of day. 

MAXMIN Difference between maximum daily 

temperature and minimum daily 

temperature. 
NYTT Nighttime physiological time based 

on temperature and length of 

night. 
NYTTYM Fractional physiological time o'f 

night. 
TAVG Average 24-hour temperature. 

Subroutine PNET 

BMAIN Photosynthate required to maintain 

present plant material. 

LYTCPT Fraction of incident solar radiation 

intercepted as function of LAI, 

LYTRES Light respiration. 

PN Net photosynthate, 

P PLANT Photosynthate produced per plant. 

PSTAND Photosynthate produced by stand of 

plants as function of WATTSM. 

PTS Photosynthate after light respiration 

and maintenance have been sub- 
tracted. 

PTSRED Photosynthate reduction factor. 

RSUBL Coefficient for light respiration. 

WATTSM Solar radiation in watts per square 

meter. 

Subroutine QPREQZ 

F Not used. 

LEFADD Factor used to adjust LAI for crops 

with different populations. 

NAGE Age of fruit from initiation of square. 

PCJBOLD Boll photosynthate requirement for 

full growth during day. 
PQBOLN Boll photosynthate requirement for 

full growth during night. 

PQBOLX Total boll requirement for 24 hours. 

PQLEFD Photosynthate required for full leaf 

growth during day. 



PQLEFN Photosynthate required for full leaf 

growth during night. 

PQRESN Requirement for rebuilding depleted 

reserves. 

PQRTSD Photosynthate required for full root 

growth during day. 

PQRTSN Photosynlhatc required for full root 

growth during night. 

PQSTMD Photosynthate required for full stem 

growth during day. 

PQSTMN Photosynthate required for full stem 

growth during night, 

QLEF Not used. Equal to QUAN. 

QRTS Not used. Equal to QUAN. 

QSTM Not used, Equal to QUAN. 

QUAN Constant to obtain proper proportion- 

ing of photosynthate. 

Subroutine PQDAYZ 

F Ratio of available photosynthate to 

that required. 

ROTW Variable used to calculate root senes- 

cence. 

STMW Variable used to calculate stem sen- 

escence. 

TRESXX Maximum photosynthate that can be 

translocated during day. 

Subroutine PQNYTZ 

ABC Variable used to sec if boll setting re- 

quirements are met. 

PREQZ Photosynthate required for growth if 

roots are not grown. 

STQN Same as PREQZ. 

TSLIMT Maximum photosynthate that can be 

stored in leaves. 

Subroutine NITR 

AD Actual root volume depth, 

AL Actual root volume length. 

APPL Sidedressing. 

AW Actual root volume width. 

BCON Burr concentration of nitrogen by 

weight. 

BOL1 Nitrogen requirement for today's 

boll growth. 

BURMIN Maximum nitrogen requirement for 

today's burr growth. 

BURR Maximum burr usage capacity for 

nitrogen. 

BURR1 Nitrogen requirement for today's 

burr growth, 

CD Depth of maximum root volume per 

plant. 

CL Length of maximum root volume per 

plant. 

COTTON Total mature and green cotton 

weight. 

CW Width of maximum root volume per 

plant. 

DEFCIT Difference between boll growth re- 

quirement for nitrogen antl nitro- 
gen taken up from soil. 
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DREQN Maximum capacity of plant for stor- 

age of nitrogen. 

KPN Efficiency of application of preemer- 

gence application and sidedressing 
(if any). 

EXC Amount of nitrogen taken up above 

needs of plant for growth. 

GRGR Amount of fruit growth on plant, 

LCONC Leaf concentration of nitrogen by 

weight, 

LEPR Maximum carbohydrate storage ca- 

pacity of leaves. 

LEFKI Nitrogen requirement for today's 

leaf growth. 

LEFRS Reserve nitrogen .stored in loaves. 

MM AX (I) Maximum nitrogen concentration 

possible in plant parts. I is used as 
follows: 1, seed; .1, burrs; 4, stems; 
5, roots. 

NMIN (I) Minimum nitrogen concentrations 

possible in plant parts as defined 
forNMAX(I). 

NPART Actual nitrogen in plant parts. I is 

defined as NMAX(I). 

NSTRES Nitrogen stress factor for reduction 

of growth and abscission of fruit. 

PERN Organic nitrogen pool in soil. 

POM Percentage of organic matter. 

R Rainfall yt inches. 

RCON Nitrogen concentration in ronte by 

weight. 

REQ] Nitrogen requirement for today's 

plant grow th. 

RESN Reserve nitrogen available in plants. 

for growth of fruit. 

ROTR Maximum capacity of roots for nitro- 

gen. 

ROTR1 Nitrogen requirement for today's 

root growth. 

ROTRS Reserve nitrogen in roots available 

for fruit growth. 

RTOT Cumulative sum of nitrogen demand- 

ed by the pi ant. 

SCON Seed concentration of nitrogen by 

weight. 

SEEDR Maximum seed usage capacity for 

nitrogen, 

SEEDRI Nitrogen requirement for today's 

fruit growth, 

STCON Nitrogen concentration in stems by 

weight. 

STIVER Maximum capacity of stems for nitro- 

gen. 

STMRI Nitrogen requirement for today's 

stem growth. 

STMRS Reserve nitrogen in stems available 

for fruit growth. 

SUPR. Factor used for partitioning nitrogen 

among plant parts. 

SUPR1 Factor used in partitioning nitrogen 

among plant parts. 

TEMN Soil pool of available nitrogen. 

TOTAL Plant requirement for growth plus 



excess nitrogen (if any) ttifcpn up- 

USE Parameter indicating rate uf deple- 

tion of reserves. 

VPLT Actual root volume. 

VTOT Maximum root volume per plant. 

WCOTX Yesterday's mature cotton weight. 

WGRCOT Yesterday's green cotton weight. 

WLEF Yesterday's leaf weight. 

WROT Yesterday's root weight. 

WSTM Yesterday's stem weight. 

XN Maximum amount of nitrogen plant 

tan take up per day. 

XNUP Nitrogen uptake of plant. 

XNUP1 Amount of nitrogen taken up Ky 

plant. 

Subroutine PLTMAP 

Accumulated average temperature 
for first 31 physiological days. 

Day of squaring on main stem. 

Day of squaring on vegetative brannh, 

Trigger for adding new node to main- 
stem fruiting' branch. 

Main-stem node on plant at which th* 
first square will appear. 

Trigger for tolling when first square 
is 071 plant. 

Trigger for adding new node to vege- 
tative fruiting branch. 

Matrices for determining when fruit 
will be abscised after triggering the 
abscission process. 

Variable used to senesce leaf materi- 
al. 

Maximum number of nodes on a 
main-stem fruiting branch. 

Trigger for adding squares to a 
fruiting branch, from the main 
stem, 

Trigger for adding squares 



AVTEMP 

DSQ 
DSV 
ICNOD 

INOD 

ISQ 

IVNOD 

JK 
JKV 

LEAFWT(JJ) 

NOBR 

NTL 

NTLV 

NV 

PQBOLD 

PQBOLN 

PQBOLX 

ROOTW(JJ) 

STEM(JJ) 

TAVL 

TBTIV 

T(L) 

TMAIN 
TMPV 



to a 

fruiting branch for a vegetative 
branch. 

Number of nodes on vegetative main 
stem, 

Photosynthate available for today's 
boll growth. 

Photosynthate available for tonight"* 
boll growth. 

Total required photosynthate for 
maximum boll growth for 24 hours. 

Variable used to senesce root materi- 
al. 

Variable used to senesce stem materi- 
al. 

Running average temperature of 
nodes on main stem, 

Time till next node on vegetative 
fruiting branch. 

Time till next node on main-stem 
fruiting branch. 

Time till next node on main stem. 

Running average temperature of 
nodes on vegetative branch. 
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TV 
WLOST 



Time till next node on vegetative 

main stem. 
Total root and stem material sen- 

esced on this day. 



XM 



Variable used in calculating maxi- 
mum number of nodes on a main- 
stem fruiting- branch, based on 
plant population. 



PROGRAM SETUP AND EXECUTION 



SIMCOT II is written in FORTRAN IV level 
G and has been run on the IBM 370-155 system at 
Clemsou University and on the UNIVAC 1106 at 
Mississippi State University. The IBM 370-155 
uses 91 K bytes of storage, and run time with a 
typical 10-day mapping' output is 55 seconds. 
Comparable figures for the Univac 1106 are 28 
K words and 34 seconds. We normally employ 
disk files for program and data sets, and we 
usually operate from terminal. In converting to 
Univac or IBM equipment the arc cosine term 
in SUNTYM must be used appropriately. 

SIMCOT II can be used for plant population 
studies with up to 80,000 plants per acre. An 
appropriate "LEFADD" factor from table 4-1 
and the per-acre plant population must be sup- 
plied as indicated on line 288 of the sample data. 

Carbon dioxide fertilization experiments can 
be made by inserting a 1 in the appropriate 
column of the climate data. This provides 500 
p/m COu in the upper part of the plant canopy 
during 6 midday hours (roughly equivalent to 
SOOlbCOa/acre/hour). 



Photosynthetic efficiency can be varied by ap- 
propriate change in PNEFF in line 288 of sam- 
ple data. 

Nitrogen fertility studies can be made with 
different planting applications (INITIALN 
pounds N per acre on line 290 of the sample data 
set) or by sidedressing with appropriate levels 
of APPL in pounds N per acre on line 3fi of 
NITR. 

Row-spacing studies can be made by changing 
ROWSP on line 288 of the sample data. 

Soil -moisture studies require appropriate 
values for inches of water holding capacity in the 
top 12 inches (SOIL CAP on line 288 of the sam- 
ple data) and may require changes in lines 18-24 
of WATERZ on lines 281 to 283 of the sample 
data to reflect the effect of various climates on 
plant water status, We have not yet attempted to 
validate over a range of moisture stress condi- 
tions for different soils. 

Emergence date studies can be done by chang- 
ing EMERGE on line 288 of the sample data. 



43 



PROGRAM LISTING 



HCKIN+TF.K 

1 

-p 

3 
4 

5 



BLOCK DATA 

COMMON COM/TR,, DAY.. I . -LI PCGT, I3TSQR 

INTEGER F-'Rcq^, 8 > 

DATA FR/36Q*Dx 

REAL PCuT<2QGj 3> 

DATA DAY.''0. -'.. ISTSi~'P.--'i>' 

END 



MCKIN*TF.A 
1 
2 
3 



S 
9 

10 

ii 

I' 1 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

3J 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

4? 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 



DIMENSION PCOK2QCN 9), PBOLLXSQ), KLYMfmSUfi. 7>. XS 
7, b^UTBOLLC45. 8 ), CLIMAK300, 7> 

UlMtNSIGN SOILI.-KHO, tSUBKSX, l,ITBf!| VC'XM, c i 

INTEGER TFLC20? ' ---.-..- 

DIMENSION DEOA365}, DECLIN<363> 

DIMENSION ATL<4> 

COMMON ."COM/FR, ftfff. I, J.J., PCQT, ISTSQR 

COMMON STMWTj. ROOTWT 

INTEGER FRC45, 8 > 

INTEGER SQLOiT, BOLLST, BLOOM. FRVL 

R CHRX/ ' X ;' s, CHrtRS/' *' .-> CHARN/ ' 



, CHAR I / ' l ' ./., CM, WO/ ' ' / 



INTEGER XTRESXCL-, COS/ 
INTEGtR FAGE<4^j S 

INTEGER PRT(45,8 >x360*' '/, PRI (45, 3 )x^fiO'*' '/ 
REAL NMAXC5), NMIH<5>* HPARTC5>/5*0./.1 HOHC/0./ 
REAL LEAFW 

REAL LEFWT, LO STD, Ltil, NYTFAr, 

l'^, . noT^TUrjE,. MINUTS, MIHFAC, KLVMAT, " 
REAL li.tuST(3>X3*:i.i. /, RpE/0. / 
DATA UTBQLL/36G*G. /j HISTD/. I/, LOSTH/. x, SIRL MT/. 71 



LEFSTF 
TPNSLF/. 2 



NYTT 



NYTKfiCx. 45.", EVAPFCx'. 75x/RSUBOx 
GUFCx.gx, RESAIiD/.Sx, GSUBRx.375x, 
3/. MM INC 1 >x. 02Xj HMIN<2)/. 04/, HMINc3>/. 006/, HM1 hK4>'. 009/, 



DATA SUHLEF/O. .>, SUMSTM/0. /, SUMRTS.-'O. /', QRCO rX/n. ,- . NUMGPN/n^ Nl II10PN/' 
H.i/, DIF-SUM/0. -. DMACRE/404700.X, COlKX/O.x, Ti'iPRE^/Q./, PAVrtlL/O.x. TRES 
'^'^n^- - < ,- ^^ VHA "' 0/ ' SOI .OSTx i)/. ^ulJ GT / O/ . LA I / ." i o PL ANTU/ 1 . >, " 

' PRE8 "- D " " 



1000 FORMATC9F5. 0> 

REA1K5, 1005)<PBOLL<J>, J=L 
1005 FORMATa6F5.U> 

REAIK5, t003)TTL 
1003 FORMATC20A4) 

READC5. 100OKCARDS 

1001 FORMATdlO? 



I^ 41 > 



J>, J-1 , 7>, Kl, KCARDS) 

READC5, 102 
1025 FORMAT <16F5. 2) 

DO 2222 J-2.365 
2222 IF<ABS<DECLINCJ.LT.0.5)DECLIH<J)DECLIN<J-n 



DO /36 -1=42,200 
PCOTCJ, 1> = .OS 
PCOTCJ, 2:i = . 
PCOTCJ, 3^-.fjO 
PCOTCJ, 4>=0. 
PCOTCJ, 5':- = . 60 
PCOKJ, 6> = . Ci 
PCQTC-J, 7>^ 
PCuTCJ, 8>=0. 
78G PCOTCJ, 3> = 15. 00 



7> 
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PROGRAM LISTING-Continued 

C DESCRIPTIONS OF THE ENVIRONMENT: LATITUDE, LENGTH OF SEASON, WATER 
C CAPACITY OF THE SOIL IN INCHES PER TENTH OF THE ROOTING DEPTH 
6 tl READC5, lp20)LATLIDE, SEASON, H20CAP, EMERGE, ROUSF, ADD, EFF, POPPLT 
C MANAGEMENT OS THE CR--P: PLANTING DAY - THE YEAR, PLANTS PER ACRE 
C ROW SPACING, CENTIMETERS 
2 READC5, 1 02OPQM, EFN, TEMN, RESIDN 
1GSO FORMATCSFliJ.CO 

TEMN-<TEMN*EFN/'POPPLT)*453.6+RESIDN*453.6^POPPLT 
REAIK5, ?U55>JJK, LAST, JB 
7055 FORMATES) 

FLOWER=3i:iOi:in.''POPPLT 

BALEFC=. QQOOQ14*POPPLT 

US=0 

UR=0 

WL=0 

MINFAC=. 0002909 

JSEAShNSEASQN+2. 

MATURE=SEASON+1. 

NGREEH-SEASON-2. 

RADFftC=. 0174533 

LATUDE=LHTUDE*RADFAC 
JPLHAY=EMERGE 

SINLAT=SINaATUDE> 
COSLAT<:OSaATUDE> 
DO 8 J= 1,365 



DEGRES=K 

M I NUTS=DECL I N < J > -DEGRE3 

BECL<J)=DEGRES*RADFAC+MIHUTS*MINFAC*100. 

DO 21 J=LKCARDS 
CLIMXH-KLYMAKJ, 6) -EMERGE 
IF<CLIMK<.LE.O.>GCi TO 21 



7) 

6>=KLYMATCJ, 6) 
5>=KLYMAT<J, 5) 
4>=KLYNAT(J, 4) 



3>-3S.>*5./9. 



2>=<KLYMAT< J, 2>-32. 



QLIMATCK 
CLIMATCK 
CLIMATCK 
CLIMAT<K 
CLIMAT<K 
CLIMAT<K 
CLIMATCK 
K=K+1 
21 CONTINUE 

ESUBT<n=EVAPFC*.5 
ESUBK2)=EVAPFC*.7 
ESUBT<3>=EVAPFC*.9 
ESUBT<4>=EVAPFC*.9 
ESUBT<S)=EVAPFC 
POPFAC=DMACRE/POPPLT 
ROOTWT=PCOT(i, 1> 
STMUJT =PCOT(1,3> 
LEFWT=PCOTa, 5!J 
1=1 

LJRITEC6, 1004>TTL 
1004 FORMAT <' ',20A4> 

DO 145 J=l, 10 
145 SOILWU>=H20CAP 
TIME=1. 

DO 998 J.>1,,ISEASN 
JNEXT=0 
AGEAGE+TIME 

' IF<AGE.GT. SEASONS-GO TO 998 
H20REM0., 

i:ALl.r"sUNi'VM(.)PL.HvT'. ni-Y:[... DAYLNG. SU*I AT. CuSl AT) 

r:ALI MATrPHa:l_ir-it'tT, H. : 'OCAP, H20RHH, STRESS, ttBTRES, SOILU, ESUBT, 

I'HLL PI'l/:jR^o:i.IhRr, DAVI : AC,NYi: r AC. DAVI. HC. JOLD, TUAV. TNYT, DAYTYM, 
1NYT I 'f'H, [KACH, Tr'ACH, NLWDAV, TAVG) 

HALL PNETCLAI, CLIMAT, POPFAC, PLAHTW.. DAYTYM, NVTTYM, RSUBO, PN* STRESS, 
If DAY, LYTRES, GSUBR, C02, EFF, ROWSP, NMIH, LCONC) 

CALL QPPEG2<PQLEFD, PGLEFN, PQSTMD, PQSTUN, P0RTSD, PQRTSN, PGBOLD, PQBOL 
IN, PQRESN. PQFLR,, PBOL.L, NYTTYM, DftYTYM, PQBOLX, TFftCD, TFACH, TOPRES, PRES, 
^PESADIi, NEWDAY, LEFUT, SUMLEF, SUMSTM, SUMRTS. 
7JNOD. HONOD, NOBR, FACE, NVEG, NBRV, FRV, FAGV, NFL, ADD, HSTRES) 

CALL PQDAYHCRTRESS, STRLMT, PQLEFD, PQSTMB/ P0RTSD, PQBOLD, TRES, PRES, 
1PN, RESUFC, UEFWT, XTRES, TRNSLF, LEAFU, STMU, ROTU) 

CALL PQNYTHCPQLEFHj PQSTMN, PQRTSU, PQBOLN, PQRESH, PQFLR, TRES, 
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PROGRAM LISTING-Continued 

135 ILEFWh FRLS.J UPRtS, HISTD. l.OSTD. XTRES." LEFSTF;'POLYNA..RESLIFC, 

137 ^CALL pLTMAPCPBo'iL WTBOLL. TAVG, NEUBAY, PQUOLN. PQBQLB. PQBOLX, XTRFS . 

133 1NOBRI - HONOD, BOLLST, SQLOST, COTXX* GRCOTX, ROUSP, PQFLR, POLY H ; FHU._ 

139 2INOD. NOBR, POPPLT, HUMGRN, NUMQPH, NVEG,, NERV, FRV, FAGV, UTBuLV> NV- BLuuT- 

140 3LEAFW, LEFWT, HFLv CLIMAT, STMWj ROTW. GBLOS, ULOST.. NSTREC) 

141 CALL NITR<RDEP, POM. EFH, TEMN. UMAX, HMIN, ROWSP. PERN, PUPPLT,_ _ 
149 INPART' NSTRES, RESN, DREQK, DEFCIT, USE, LCONC, HSODEF, HSOCAP, UBLU^ 

143 2LEFWT, COTXX, GRCOTX. RFALL, JJK, FRVL, US. WR) 

144 WSUS-HJLOST<1> 

145 "" 

146 

147 
148 

149 DO 180 J=l, 10 

150 130 H20REM=H20REIH-SOILWU> 

151 H20REX=H20REM 

152 BALECT=COTXX*BftLEFC 

153 LAI=LEFWT*ALftIFtypOPFAC ^ 

154 IFd.LT. ISTSQR+DGO TO 750 

155 MSUM=0 

156 NSUMMB-C 

157 NSUMNO^O 

158 NCOUHT=0 
Ib9 NSUMSQ=0 

160 HSUMBO=U 

161 DO 728 L=1,NONOD 

162 DO 728 M=LNQBR1 

163 IF<FRCL, M).EQ.05GO TO 728 



165 IF<FR<L, H).EQ.2)PRTCL.M>=CHARS 

166 IF<FR(U M>.EQ.3)PRTCL,M>=C:HARN 

167 IF<FRCL, M).EQ.4)PRTCUM>-CHARO 

168 IF<FRCL,M>.EQ.5)PRTCUM)=CHARX 

169 IF<FRCL,M>.EQ.6)PRTCL,M>=CHARS 

170 IF<FRa,M>.EQ.1.0R.FR<L,M>.EQ.5>NbUMSQ=NSUI1SQ+l 

171 IF<FR<L,M).EQ.1.AHD.FAGE<L,HXGE. 12)HCOUHTHCOU 

172 IF<FR<L,M).EQ.5.AND.FAGE<UM>.GE.12>HCOUNT=HCOUHT+1 

173 IF<FR<L, M>.EQ.2.0R.FR<L,M>.Q.eniSUMBQ=NSUMBQ+l 

174 IF<FRCL,M>.EQ.3)HSUMMB=HSUMMB+1 

175 !F<FR<L, M> . EQ . 4)NSUMHOHSUMHO+1 

176 PRKUM>=CHARI 

177 728 CONTINUE 

178 DO 82S LV-LHVEG 

179 DO 82S MV=1,NERV 

ISO IF<FRV<LV,MV>.EQ.O) GO TO 323 

181 IF<FRV<LV, MV> .EQ. nPRTVCLV, MV 

162 IF<FRV<LV.MV>.EQ.2>PRTyCLV,My 

183 IF<FRV<LV, MV> .EQ. 3)PRTVCLV, MV>=CHARH 

184 IF<FRV<L.V, NV> . EQ. 45PRTVCLV, MV>=CHARO 

185 IF<FRV<LV, MV> . EQ. 5>PRTV(LV, MV)=CHARX 

186 IF<FRV<LV, MV> . EQ. 6>PRTVCLV, MV^CHARS 

187 IF<FRV<LV, MV> . EQ. 1 .OR. FRV<LV, MV> . EQ. 5>NSUMSQ=NSUMSQ+1 

188 IFCFRVaV, HV> . EQ. 1 . AMD. FAGy<Ly, |W) . GE. 12>NCOUNT=NCOLJNT+1 

189 IF<FRV<LV, MV>.EQ.5.AMD.FHGV<LV, MV) .GE. i2>HUOUNT=HUJUHT+l 

190 IF<FRV<LV, MV5 . EG. 2. OR. FRV<LV, MV> . EG. 6>NSUMBO=NSUMBQ+1 

191 IF<FRV<LVj r-1^0 . EQ. 3>MSUMM8=HSUMMB+1 

192 IF<FRV<LV, MV> . EQ. 4>NSUMNO=HSUMHO+1 

193 PRIVCLV,MV)=CHARI 

194 828 CONTINUE 

195 IF<LftST.EQ.O?GO TO 5005 

196 IFCJJ.NE.JJIOGQTO 700p 

198 211 FORMAT<' C ^ 1 'HOW MANY FRUIT OH MAIN BRANCH WILL BE ABSCISED ON DAY 

199 1M4, '? J > 

200 READC5, 3065:- NUMBER 

201 WRITEC6, 3065>NUMBER 

202 3065 FORMAT<I5> 

203 IF<HUMBER.LE. 0>GO TO 30 

204 DO 31 1=1, NUMBER 

205 URITEC6, 212>JJ 

206 212 FQRHAT< J ', 'WHICH FRUIT ON MAIN BRANCH WILL BE ABSCISED OH DAY ', 

207 114, '?'> 

208 READ.C5, 1 >L, hi. FR<.L, M> 

209 URITE(6, 1>U N, FR<L; M> 

210 31 CONTINUE 
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PROGRAM USTING-Continued 

211 30 CONTINUE 

212 URITE<6, 214>JJ 

13 214 FORMATS ', 'HQU MANY FRUIT ON YEG. BRANCH WILL BE ABSCISED ON DAY 

214 1 J i 14, ' ?' ') 

215 REAIK5, 3065) NUMBV 

216 URITE<6,3Q65>NUMBV 

217 IF<NUMBV.LE.O)GO TO 33 

218 DO 32 I=i,HUMBV 
21'5 URITEC6/215VJJ 

220 215 FORMAT < J \ 'WHICH FRUIT OH VEG. BRANCH WILL BE ABSCISED ON DAY 

Pa REAru:5/nLV, MV, FRV<LV, MV> 

2E3 URITE<6, 1>LV, MV, FRV<LV, MV> 

22-1 1 FORMATOI5) 

225 32 CONTINUE 

226 33 CONTINUE 

227 URITE<6, 216>JJ 

22P 216 FORMAT*' >> J W YOU UANT PLANT PRINTED OUT OH DAY ', 14, '?') 

229 READ<5. DJHEXT 

230 URITE<6, 1>JHEXT 

231 JJK=JJK+JHEXT 
?3 WRITERS, 213 >JJ 

233 213 FORMATS ', 'IS THERE ANY MORE DATA AFTER BAY M4, '?') 

234 READ<5,3Q70>LAST 

235 URITE<6, 30?0)LAST 
235 3070 FORHAT<I5) 

237 7000 CONTINUE 

238 5005 CONTINUE 

239 NSUM=NSIJMSQH-HSUhBO+NSLIi'INO+NSIJMMB-NONOri-HV 

240 8010 CONTINUE 

241 IFCNOBR1.LT.2>GG TO 746 

242 NQBR2=NOBR1-1 

243 DO 738 M^L NOBR2 

244 Mi=HOBRl-M+l 

245 IF(JJ.NE.JJK)GO TO 8001 

246 URITEC6,739)<PRT<L J Mn,L= 

247 739 FORMAT*' f , 2X, 32<A1. 3X)> 

248 8001 CONTINUE : . 

249 IF<JJ.NE.JJK)GO TO 8007 
50 URITEC6,739XPRI<L,Mn,L 

251 8007 CONTINUE 

252 738 CONTINUE 

253 746 CONTINUE 

254 IFUJ.NE.JJIOGQ TO 8008 
55 WRITE<6^740XPRT<U 1). L1 

256 740 FORMATS >>>==>, 64<Ab '=' 

257 8008 CONTINUE 

58 IF<NOBR1.LT.2)GO TO 750 

259 IF(JJ.NE.JJK)GO TO 8002 

260 DO 741 M2,NOBR1 

261 WRITE<6. 760XPRKL M). L=2, NONOD. 2) 

262 741 URITE<G,76QXPRT<LM>4=2,NONOB,2> 
63 760 FORMATS 'MX.32<A1*3X 

264 750 CONTINUE 



?71 1' PHYSIOL. DAYS M3. ' BLOOMS LOST ', 12) 

75 3 ^^W' 
274 2,13,' ft GREEN BOLLS ',12,' tt SITES M3,//) 

GO TO 870 

00 TO 
279 DO 838 MV=1,NBRV2 



283 URITECel 739) <PRIV<LV, MV1>, LVli NVEC, 2) 

284 &009 CONTINUE 
235 8J3 CONTINUE 
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PROGRAM LISTING-Continued 



288 WRITERS, 740) <PRTV<LV, 1 X LV=1.. NV> 

289 8003 CONTINUE 

290 IFCNBRV2.LT.1; GO TO 850 

291 IFCJJ.NE.JJIOGO TO 8005 

292 DO 841 MV=2, NBRV 

293 URITE<6, 7605 <PRIV<LV, MV)> LV=, NVEG, 2> 

294 841 U*TTE<S, 760) CPRTVaV, MV>, LV=2, NVEG, 2) 

295 8005 CONTINUE " 

296 850 CONTINUE 

297 INQDV-INOD-1 

298 IFUJ.NE.JJIOGQ TO 870 

299 IFUHDDV.LT.O:>GQ TO 870 

300 UR1TE<6'901) INODV 

301 901 FORMATS '..'VEGETATIVE BRANCH GROWING FROM NQDEM3, 2K, 'OF THE MAI 

302 IN STEM',.'V) 

303 8006 CONTINUE 

304 870 CONTINUE 

305 JJK-JJK-JHEXr 

306 IFCJJ.HE,JJK>GO TO 8011 

307 IF<LAST.EQ.O>GO TO 5515 

308 URITE<6, 220XJJ 

309 220 FORMAT<' '.'THIS IS DAY 

310 READ<5, 3Q65>JJK 

311 5515 CONTINUE 

312 IFCLAST.EQ.DGQ TO 5505 

313 JJK=JJK+JB 

314 5505 CONTINUE 

315 8011 CONTINUE 

316 998 CONTINUE 

317 LATUBE=LATUD.'RADFAC 

318 URITE<6, 1050>BALECT, EMERGE, JSEASN, LATUDE 

319 1050 FORMATS *> ! YIELD/ACRE SF5.3, ' EMERGENCE DATE J ,F4.0, 

320 1DAYSM3*' LATITUDE ', F5. 1 ) 

321 URITE<6, 105ONUMGRN, NUMOFN, H20CAP 

322 1051 FORMATC ', 'ft GREEN BOLLS MS, * ft OF OPEN BOLLS ', 12, ' 

323 2 CAPACITY SF4.2) 

324 URITE<6, 1 052)H20RUN, ROWSP, POPPLT 

325 1052 FORMAT<13H H20 RUN OFF ,F4.2,14H ROU SPACING ,F6.1,19H 

326 1TS/ACRE ,F7.0> 

327 STOP 

328 END 



14, 5X. -'WHAT IS THE NEXT OUTPUT DAY?' " 



' GROWING 
SOIL H20 
# OF PLAN 



CPRT TF.B 



MCKIHfTF.B 




1 




2 


C 


3 


c 


4 


C 


5 


c 


6 




7 




S 




10 




11 




12 




13 




14 




15 




16 




17 
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SUBROUTINE SUNTYI'K JPLDftY, DECL, DAYLNG, SINLAT, COSLAT> 

THIS SUBROUTINE COMPUTES THE LENGTH OF DAY FOR ANY DAY OF THE YEAR 

JPLDAY IS THE DAY OF PLANTING, DnYLNG IS THE DURATION OF SUNLIGHT 

IN HOURS. 

DECL REFERS TO A TABLE OF DECLIKATIONS GIVING DECLINATIONS FOR EAC 

DIMENSION DECL < 365 >, PCOTC200, 9) 

COMMON xCOM/FR, DAY. I, JJ, PCOT, ISTSQR 

INTEGER FR<45 J S > 

RABFAC=. 0174533 

JDAY=JJ+ JPLDAY 

DCLVAL=DECL(JDAY> 

SINDCL= SINCDCLVAL) 

COSDCL=COS(DCLVAL> 

SUNRI2=C-SINLAT>t.SINIiCL>x(COSLAT*COSDCL> 

SUNRI2= ACOSCSUNRIZVRAflFAC 

DAYLNOCSUNRIZ^IS. >*2, 

RETURN 

END 



MCKIN*TF. 
I 
2 
3 
4 
5 




SUBROUTINE UATERZC CLIMAT, H20CAP, H20RUN, STRESS, XSTRES. SOILU, 
1ESUBT,H20DEF> 

C SUBROUTINE UATERZ ADJUSTS SOIL MOI.STURE FOR EVAPORATION AND 
C. RAINFALL AND EVALUATES PLANT STRESS IN TERMS OF UATER REMAINING 
C THE SOIL AND THE PAH EVAPORATION FOR THE DAY - ARBITRARILY. 
C CLIMAT IS RAINFALL AND PAN EVAPORATION FOR THE DAY INDICATED 
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PROGRAM LISTING-Continued 

7 C H20CAP IS THE USEFUL WATER IN INCHES PER TENTH OF THE ROOTING 

8 C DEPTH 

9 C H2QRUN IS THE COMPUTED RUNOFF OR SOAKTHPOUGH 

10 C XSTRESS REFERS TO A TABLE OF VALUES ASSIGNIHG'A NUMERICAL VALUE TO 

11 C THE STRESS RESULTING FROM THE COMBINATION OF SOIL WATER CONTENT AN 
IS C EVAPORATIVE DEMAND AS MEASURED BY PAN EVAPORATION' 

13 C SQILU IS THE USEFUL WATER PER TENTH OF THE ROOTING DEPTH 

14 DIMENSION CLIMATX3QO, 7), XSTRESC7, 5>, SQIHiKlO), ESUBK5X PCOT<20H. 9) 

15 INTEGER EVAP, FRC45, 8 > 

16 COMMON COM/FR. DAY, I, JJ, FOOT, ISTSQR 
1? COMMON STMLilT., ROOTUIT 

18 . IF(CLIMnT(JJ, 5>.LT.2. 0>EVAP=7 

13 IF<CLIMAT<JJ, 5>.LT. 47)EVAP=fc. 

IFCCLIMATCJJ, 5).LT. 39)EVAP=5 

21 IFOXINATUJ, 5>.LT. 31>EVAP=4 

2 IFOXIMAKJJ, 5).LT. 23>EVAP=3 

23 IF<CLIMATCJJ.. 5>.LT. 15>EVAP=2 

24 IFOJLIMATCJJ, 5>.LT. 07>EVAP=i 

25 H20DEF=G. 

26 IFO::LIMAT(JJ, 4>.LT..02)GO TO 175 

27 DO 153 J=l, 10 

2:3 153 H20DEF=H2QDEF+H2QCAP-SOILUKJ> 

29 H20EHC-CL I MAT C J.J, 4 > -H20DEF 

3 (( IFCH20EXC.GT.Q.}GQ TO 154 

31 EXIT=0. 

32 UJATER=CLIMAT(..LI, 4> 

33 DO 151 J=l, 10 

34 IFCEXIT.GT.fi. )GO TO 151 

35 XWA7ER=I..JATER 

36 WATER=UATER-H20CAP+SOILU<J> 

37 I F ( WATER . GT . . > GO TO 1 52 

38 SO I LW ( J ) =SO ILU C J > -i-XHATER 
33 EXIT=1, 

40 GO TO 151 

41 152 SOILUU)=H20CAP 

42 151 CONTINUE 

43 GO TO 175 

44 154 H20PUN=H20RUN+H20EXC 

45 DO 155 J=l, 10 

46 155 SOIUJ<J>-H20CAP 

47 175 EXir=0. 

48 PAN'v'AP=CLIMAn; JJ, 5> 

49 K=H' 

50 DO 178 J~l, 10 

51 QH2fi=30IU.iKJ-' 

52 IF<EXIT.GT.O.)GO TO 178 

53 IFCSOILW<J).GT. 0. >GO TO 17b 

^J [!' =:].;'- 1 

55 IF<K.LE. 0>K>1 

56 GO TO 173 

57 176 KMOIST-K*5>+5>/10 

59 P ANVAP=PftHV AP*ESUBT ( KMO I ST !J 

59 30 1 LW ( J ) -SO 1 1- U C J > -PAHVAP 

60 [FCSDILU<J).QT. 0. >GO TO 177 

61 PrtNVAP^F-ANVAP-RH20 

62 NSU=KMOIST 

63 GO TO 178 

64 177 Em=l. 

65 HSW-KMOIST 

66 PANVAP^O. 

67 178 CONTINUE 

68 STRESS=XSTRES(EVAP,NSU> 

69 RETURN 

70 END 



1 SUBROUTINE PMHDftXC CLIMAT, DAYFftC, NYTFAC, DAYLNG, IOLD> 

? 1TDAY, TNYT. DAYTYM. NYTTYM, TFACD, TFi-iCN, HEUDAV. TAVG> 

3 C riAYFAiVi-V FRACTION ABOVE MIHTEMP FOR UAILY TEMP. ftVG. 

4 C NYTFAf: IS FRACTIHN ABOVE MINTEMP FOR NIGHT TEMP. fiVG. 

5 c SUBROUTINE PHZDAZ CALCULATES THE LENGTH OF THE PHYSIOLOGICAL DAY A 

6 C BASED ON THE ESTIMATED AVERAGE^TfNPERATURE OF EACH, DEC, CENTIGRADE 

7 C IOLD=PHYSIOLOGICAL TtME, DEGREE-DAYS FROM START OF PLANT GROWTH 
ft DIMENSION .CLIMfVKSQQ, 7>, PCOTOOO, 9) 
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PROGRAM LISTING-Continued 

9 COMMON /CQM/FR.. DAY, I, JJ, PCOT, ISTSGR 

10 REAL NYTFAC.MAXMIN, HYTT, NYTTYM 

11 INTEGER FRC45.-3 > 

2 IF<CLIMATUJ,2>.GT.30.>CLIMAT<JX2>=3Q. 

13 MAXMIN= CLIMAT< JJ, 2)-CHMATCJJ, 3> 

14 TDAY=nAXM IN*DftYFAC+CL I|1AT< J J.- 3 ) 

15 TNYT=MAMMIN*NYTFAC+CL IMHT < J J, 3 > 

16 TFACD-<TDAY-12. V14. 

17 IFaDAY.LT.12. )TFACD=0. 
IS TFAC:N=(TNVT~12.:>.^i4. 

19 IF<THYT.LT.12.>TFACN=0. 

20 DAYT=TFACB*BAYLNG 

21 BftYTYM-BAYT/24. 

22 HYT7=TFACN*^24. -BAYLNG) 

23 HYTT YM=HYTT/24 ; .^ ^ 

25 DAYINC^BAYrYMfNYTTYM 

26 20 DAY^DAY+BAYIHC 

28 IFCI.LT.l>I=i 

29 HEUDAY=I-IOLD 
3 Ci IOLD=I 

31 RETURN 

32 END 

WCK T' e ^^^Tffi^^-^fer^^^agp^iK^^ |T 

4 c THTft RIIRROUTINE CALCULATES NET PHOTO^YNTHESIS<PHV PER DAY PER PLT, 



C DAYTYM ^D R HVnYM :i ^ E LENLlTHS OF DAY AND NIGHT IN PHYSIOLOGICAL 



7 C PTSREB IS THE FACTOR BY WHICH LErtF WILTING REDUCES THE RATE OF 

9 C PSUBL=COEFF : 1'|-:1EHT FOR LIGHT RESPIRATION 

10 C RisUBO*COEFFICIEHT FOR MAINTENANCE RESPIRATION 

13 REAL LAI,NYTT.Vr-LLYTCPT,LYTRES 



1G COMMON STMWT, ROOTWT 

IS ^.^^<^^!- 1 

19 IF<FNIT,LT..75>FNIT-=0.75 






P2 I *2 ) 

23 LYTCPT=i. 0756* 

24 1FCLYTCPT.GE. 1. )LYTuPT=l . 
?g IF<STRESS.LT.10. >FTSREH=. 

26 I F < STRESS . LT . 9 . > PTSRED= . ^: 

27 IF<STRESS.LT.S. >PTaRtJU=.5 

25 IF<STRESS.LT.7.JPTSRFD=.S 
29 IF<STRESS. LT. 6. :'PTSRED=1 . 



SM- 0. 

ppLAHT=PSTAHD*LYTCPT*POPFAC*PTSRtD*0.001 
PPLAHTPPLAHT*1 . 06iFF*FNIT 



j A ,^ 

IF<C02.EQ. l)PPLAHT-PF 5 LAHr*1.4yi. 
$& -r C02 IS H C02 FERTILISATION TRIUUtR, WHEN 

37 C 1, PPLANT IS INCREASED 20* DUE TO 500 PPM CO?. 

38 R3UBL-0. 0032125+0. OOG6875*TDftT' 

39 LYTRESRSUBL*PPL$HT ^ ....... ..... 

T} o BMAIN=PLAHTU'HRSLW Of< UAYTYM+NV TT t M J 

41 PTS-^PPLANT-LYTRF-S-CMAIH 

4? IFCPTS.LE, .i>t>PTS--O.Ul 

43 PH*PVS/-<l.+ 

44 RETURN 

45 END 
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PROGRAM LISTING-Continued 

1 H#TF F 

1 SUBROUTINE ttPREQ2<PQLEFD, PGLtFN, PQSTMD, PQSTMN, PQRTSD, PQRTSN, PgBOLg 

2 1.- PQBGLN, PQRESN, PQFLR, FBQLL, HYTTYM, DAYTYM PQBOLX, TFACD, TFACN, TORRES 

3 2, PRF.S, RESADD.. HEWDAY, LEFLJT, SUMLEF, SUMSTM, SUMRTS, INOD, NONuD, 

4 3NOBR, FAGF.. NVEG, NBRV, FRV, FAGV, NFL, ADD, H3TRES> _ n M .^ imA __ 
2, C THIS SUBROUTINE CALCULATES THE PHQTOSYNTHATE REQUIRED FUR STANDARD 
6 C GROWTH BY EACH PART OF THE PLANT ON THE DATE BHSED UN THE DROUTH 

;' C OF THE STANDARD PLANT ON THE SANE DAY ^ ^ w . Akm 

fl C PQLEFD, PQLEFN, ETC. ARE THE STANDARD REQUIREMENTS FOR DAY ',D) AND 

5 C NIGHT <N> FOR LEAF <LEF) GROWTH, STEM <MTM) GROWTH, ETC. 

10 C PQBOLD IS BOLL REQUIREMENT, PQRESN IS REQUIREMENT FOR REBUILDING 

11 C DEPLETED RESERVES, PQFLR IS THE METABOLIC COST QF A FLOWER 
to REAL HYTTYM/ LEFADD, LEFWT, PCOTC200. 9>, PBuLL<bOJ 

13 INTEGER FRVC30, 5), FAGVC30, 5) 

14 INTEGER FR<45, 3 >, FAGE/45, S 5 

15 COMMON /COM/FR, DAY, I, JJ.. PCOT, laTsuR 

16 COMMON STMUT, RCIOTUT 

17 XYN^HSTRES 

18 REDH=i.-0.4*XYH 

19 IF(REDN.LE.O.>REHH=0. 

20 LEFADD=ADD , 
?1 SUMI.EF^SUMLEF+PCOT<L5)*LEFAIiD 
? ? SUMSTM=SUMSTM+PCOT< L 3> 

21 SUMRTS=SUMRTS+PCOT< L 1 > 



25 PCOT a f 5 ) =PCOT a , 5 > *C!UAH 

26 IFO.GT.42)GO TO 15 

f3? PCOTU,3)=PCOT<L3)*QUAN 

28 PCOTCL 1>=PCOTU, 1)*QUAN 

29 GO TO 16 

30 15 CONTINUE 

? H prTiT '' T "!'J = (' 2"t" rif^'^'STMUT /' 

^-p PCOT< lI'l^C ! 02+." 606*ROOTUT >*QUAN 

^1 li^ CONTINUE 

34 " PQLEFN=PCOT(1, 5>*NYTTYM*LEFADD 

^5 PQLEFD=FCOT< I, 5?*DAYTYM*LEFADD 

^^ pQ3TMIi=PCOTn, 3>*DAY1YM 

^7 PQ3TMN=PCOT':. I, 3>*NYTTYM 

38 PQRTSD=PCOT q - 1 S * f'fSSXf 

79 PQRT^N=PCOT C I 1 -J * NYTTYM 

40 PQBOLD=0. 



. 

IFCI.LE. ISTSQR+ S>GO TO 11 
DO 10 L-INOD. NONOD 
DO 10 M=1,HOBR 
HAGE=FAGEa, M)-.3f+ b 

iil^.^ T s 

M>.NE.2)GO TO 10 

50 IFCNAGE.GT. 60>GO TO 10 

2 6 PQBOLD*PBOLL<NftGE>*DAVTYM+PQggLD 

^| PQBOLN^PBOLL<NAGE)*NYTTM+PWBULN 

54 10 CONTINUE 

55 DO 12 LV=3, NVEG 

56 DO 12 MV=1,HBRV ^ 

B7 NAGE=FAGV<I.V, MV)- 2S+ b 

58 IFCNAGE.LT.D GO TO lii 



S9 IF<FRV<LV,MV>.EU.OGO TO 9 

^ IFCFRVaV,MV>.NF.2>G010 12 

61 IF<NAGE.GT. 60>GO TO 12 

II S PQBOLD"PBOLL<NAGE)*DAYTYM+PQBOLD 

64 pQ90LN=PQBOLN+PBOLL<NflGE>*NVTTVM 

65 12 CONTINUE 

if 



68 

6? IFCPQBOL.X.GT.OJNFL= 

70 IFCPQBOLX. LE. 0. >PUBOLX-1 . 

7 RETURN 

72 END 
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PROGRAM LISTING-Continued 

MCKIH+IV.G 

t SUBROUriHE PQDAYi<STRESS, SFRLMT, PQLEKD, PfcSTMD. FQRTSTJ.. P06Q1 n. Tk^-. P 

2 IRES.. PH. RESUFC, LER..IL XTRES.. TRNSLF, LEftFU STMW.. RQTW> _ r r . r 

3 C PUDAYZ COMPUTES THE PHOTOS'/HI HRTE USED FOR PLANT GROWTH FuP TMt Dt+ 

4 DIMENSION FR<45,3 > 

5 DIMENSION PCOK2GQ, 9) 

6 COMMON XCUM/FR, DAY, L JJ, PDOT. ISTSQR 

7 COMMON STMUT, ROQTUT 
S INTEGER XTRES 

3 REAL LEAFU 

10 REAL LERJT 

1 i LEAFINLERJT 

12 XTRES=0 

13 ROTU-ROOTWT 

14 STMbJ-STMLJT 

15 TRESMX-PH*TRHSLF 

16 PN=PN-TRESXX 

i? IFCSTRESS.GT.STRLMT:.' GO TO 41 

IS PREQ-PQLEFD+PQSTMD+PtiBOLD+PGlRTSD 

19 IFCPREQ,GT.PN;'GO TO 40 

20 C NO :TRE5S OH PLANT 

21 TRES=PH-PREQ 

22 50 LEFMT=LEFWT+POLEFD 

23 STMMT^STMWT+PQSTMB 
2-4 ROOT ill I -fiuOTU I -t PDRTSD 

25 GO TO 00 

26 40 PAVAIL=PN*TRES+PRES*RESUFC 

27 XTRES- 3 

2S IF-:PREQ.GT.PAVAIL;GO TO 60 

29 IFCPREQ.GT.FH+TRES)GO TO 70 

30 C USES TEMPORARV RESERVES AND PH ONLY 

31 TRES=PN+TRES-PREQ 

32 GO TO 50 

33 70 PRES-PRES-PREQ+PN+TRES 

34 C ALL TEMP. RESERVES ARE USED AS WELL ftS SOME PERMANENT RESERVES 

35 TRES^fl. 

36 Gu TU 50 

37 41 PREi3=PQBOLTi+PQRTSD 

38 IFCPREQ.GT.FN>GO TO 42 
'39 C WATER STRESS ONLY 

4 TRES=PH-PREQ 

41 51 ROOTWT=ROOTWT+PQRTSD 

42 GO TO 200 

43 42 PAVAIL=PH+TPES+PRES*RESUFC 
-VI XTRES=3 

15 IFCPREQ.GT.RAVAIL) GO TO 61 

46 IF(PREQ.GT.PN+TRES>GO TO 72 

47 C PLANT USES PN AND TEMP. RESERVES ClHLY 

48 TRES=PN+TRES-PREQ 

49 UO TO 51 

50 72 PRES=PRES-PREQ+FN+TRES 

51 C PLANT DIPS INTO PERMANENT RESERVES 

52 TRES=0. 

53 GO TO 51 

54 61 TRES=0. 

55 C CARBOHYDRATE STRESS AND MOISTURE STRESS 

56 PRES=PRES-PRES*RESUFC 
5? F=PAVAIL.-"PREQ 

S8 C F=RATIO OF AVAJL PN TO REQUIRRD 

b9 IFCF.LT. .5>XTRES=3 

60 ROOTWT=ROOTUTH-PQRTSD*F 

61 PQBCO=PGBOLD*F 

62 GO TO 200 

63 60 TRES=0. 

64 C CARBOHYDRATE STRESS ONLY 

65 PRES=PRES-PRES*ESUFr 

66 F=PAVHIL^PREQ 

67 LEFWT=LEFWT+PQLEFD*F 
b8 STMUT=STMWT-i-PGISTMB*F 
69 PQBOLD=PQBOLD*F 

7G 200 CONTINUE 

71 PN=0. 

72 TRES=TRESfTRESXH 

73 RETURN 

74 END 
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PROGRAM LISTlNG-Continued 

MCKIN*TF.H 

1 SI IBPOUT I HE FU5HY1 2CPQ! E.HN, PQS I MN, PQR V3N, PQ&QLH, PQRtSN, f'l'FLK 

ILEFIjJT, PRES, THiPRES, HIS I'D, LOSTU, XTRfcS, l.liFSIF, POLYHA, RES 

3 lUFC, PH, TOPRSF, STRESS, RFALL > 

4 C FTiLYHA CPOLLINATE> IF GIVEN ft VALUE SIGNALS THAT A BOLL MAY BE bET 

5 C PQNYTZ CALCULATES THE PHOTOSYHTHA1E REQUIRED FOR PLANT PARTS FOR T 

6 C WILL OCCUR BHSED OH THE CALCULATED CARBOHYDRATE STRESS OR LftUK OF 

7 c NIGHT'AHD COMFUTLS THE WEIGHT GHIHS. IT ALSO COMPUTES WHETHER BO 

S C IF ft BLOOM IS PRESENT 

9 DIMENSION FRC45/3 > 

I DIMENSION PCO"K2iKi, 9> 

II COMMON /COM/FRIDAY, I, JJ.- PCOT, ISTSdR 

12 COMMON STMUTj ROOTIJT 

13 INTEGER POLYHA, XlKES 

14 REAL LEFWT, LOSTD, LEF3 IF 

15 TOPRES=STMWT*TOPRSF 

16 PCILYNA=1.0 

i? XTRES^CI 

IS PRESX=PRES 

19 TSLIMT=LEFUT*LEF5TF 

20 IFCTPES. GT.TSL IMT2TRES=TSLIMT 

21 IF-:' PRE3X . LE , . ; PRbyX= .001 

?:- PREQ^PQl EFN+PnSTMN+PQRTSN+PQBOLHtPQRESN+PGlFLR . 

23 ' IFCPREQ.GT.TRES>GQ TO 210 

24 TRES=TRES-PREQ 

25 230 ROOTWT=P:OOTUT+PQRTSN 

26 250 LEFUT=LEFUT+PQLEFN 

27 STMUT=STMUT+PQyTHN 

28 PRES-PRESl-PQRESN , 

?9 IF<PRES.GT.TUPRES)GO TD 231 

3fj 32 IFCTRES.LT.HISTD>GO I'U bUU 

31 POLYNA=t. 

32 GO TO GOO 

:*3 ^31 TRES==TRFS-i-PRI::S--TOPPES 



1 PftVAIL=TRES+PRES*RESI IFC 

37 1F<PREQ.GT.PAVAILJGO 10 

3S pRES=PRHS-PREQ+TkES 

33 TRES=0. 

40 ABC=<PREdX-PRESVPRES^ 

41 IF<ABC.LT.LOSTD>GO TO 

42 GO TO 3U 

43 221 POLYNA=1.0 

44 __ qy T0.e!30 

^ ] ' 
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PFES=PRf=S--P* 
PREQ2-PREQ-PQRTSH 
IF<;PREG!2.GT.PAVAIL.>G() IU ii4U 
ROOTUT=ROOTWT+ CPAVAI L- PRE:u> 



S3 IF:F.LE..8>XrRK-l 

*54 I F < F . LE . . 6 > W' 



, 

Rfi IF<F.LE, .DXTRES-4 

R-? L EFW T-L .SF UT+POLEFH*F 



PQBOLN-PGBOLH*F 
PRES=PRFS+Pt!RESN*F 



S^ RETURN 

S4 



F.RN, PGPPLT, 



"I'HTEGER FR<45, s > 

COMMON STMUIT, ROCJTUT 
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PROGRAM LISTING-Continued 



13 BURR=Q. 

H DEFCIT-0. 

15 SF.EDR=Q. 

1 g COT'I ON=< CO FXX+GRCOTX J 

18 GRGRCOTTON-<WGRCOT+UCOTX> 

19 XH-. OS1S*0000.''POPPLT 

20 HSTRES=0 

21 CfcNRQUSP 

22 CD=30.43 
22 r:L='4^0 

24 VTOT=CU*CD*CL 

25 AW=<;i./42.>*3Q.4S*<;JJ+7> 

?7 AD:?l./S.)*30.4S*<JJ+7> 

28 IF<ftW.GT.CU> AW=CI...[ 

29 IF<AL.GT.LL>AL-CL 

30 IF<AD.GT.CD)AD=UD 



32 PERH=<VPLT/V1 OT>*74. 5+PQM/PpPPLT ^. 

73 PERN=PEPH* C 1 . -<H2QDEF/< H^UUHP* 1 U . > ) 



- 

CARDS INSERTED iF SlbF. DRESSED, FORM A 
I f < J J . EQ . 4 ) APPL-b6 . ? 
IF(APPL.LT.1.> LiO TO 1 
IF<R.LT. 0. 05) GO TO 1 



40 APPL=0. 

41 1 XNUP=XN 

42 y sE ^- 

44 3EEri. i 

45 Bl IRR=NMA"C3>*COT I ON*0. 2ra-NPHfcl '-'' '> 

46 22 l..EFR=NMAK< 1 >^LEFWT-HPARTC 1 ) 

47 STMR=NMAXC4)tiSTMUT-HPARTC4) 
43 RriTP=HMrtXc:4> : i ; RUU nJT-HPttRl ^) 

49 IFaEFR.LT.O.^ L.EFR-0. 

50 IFCSEEDR.LT. n. > StEDR^O. 

51 IFCBURR.LT.O.) BURR=U. 

52 3FC3TMR.LT.0-> STHR0. 

53 IFfRHTR.LT.O. > ROTR^O. 

54 WEQ\ I-GK I rnR-H r FR I BURKi STl 1R : ROTk 



L.EFR1 --NMrtXC 1 'y*<U~.l l-Jl M EF > 
IFdE-lFRl J-T.OM.E.f i^ll-O. 
BURMIH^MIN. NtTR, REU F'OR BUR CR 



61 3 f MR 1 -NH AX ( 4 > * < S Tl' IWT WSTH > 

(--? F'HTR 1 HilnX < -1 '+< POriTW T -URO ]' .> 

63 BQLi=BURMIN+SEt"DRl 

f-4 IFCKUL1. LE. 0. ) P0i..l-i]. 000001 

65 REOKEF R 1 +f*'f- HP I i-DUf-'R 1 +STMR 1 H R01 ? 1 +13URM 1 H 

66 JFCH20DEF.GT.0.5=!=H20CAP*10.>XHUP=':N*0.9 

67 IF CH20DEF. GT. 0,6*H2gCAP*10. >XNUP- 



69 U- CHr-'Unt-h . irt . 0. ^ i H.?0i .r' 

?o irair'Oi)!^ ,GI . 9c- < ij; 

VI ihtl^'M-i M.'nH Ll.^i^.lP 

72 XHUPl^XHUH 

73 IFC REQl.GT.XUP>l30 TQ 2 

74 iKCftf-.Ql.L E. fi- 0) Rl-Ql^U. 

75 IFCR^l.l.T.JJHUPXjrJ 1U 10 

76 XNUP^REQl 

77 GO I'O 3 

78 2 IFCXNUP.LT.EOLl > GO 10 6 

79 SUPR"-<KNUP-BOLi >/<REQi-EOLl 

80 IF(SUPR. I.T. . 000001 >SUPR=. 000001 

81 HSTFES=1 

82 3 IF<PERH.RE-XHUP^ GO TO 4 

83 IFtPt-RN+TE-MNrGE.MNUP* GO TO 5 

84 IF<PERH+TEMM.I TrKSOLl > GO TO 6 
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PROGRAM LISTING-Continued 

S5 SUPR1=CPERH+TEMH-BOL1 VCREQ1-BQL1 ) 

36 IF<SUPR1 .LT,SUPR> SUPR=SUPRi 
87 IFCSUPR.UT. . OOOOOOSUPR-. 000001 
S3 HSTRES=1 

8* 5 TEMH-=TENH-XHUP+PERH 

90 I F < TEMH . LT . . ) TEMN= . 

cil 4 HPART<l)*LEFRl*SUPR+HPART<i> 

q IF<HPART<1>.LT..OQ01> NPARTU > = . OQOI 

SR HP ART < ) =HPftRT C 2 > +SEEDR1 

94 IFCHPARTC).LT..0001> HPART<2)=. 0001 

95 HP AR F < 3 ) =HP ART ( 3 ) +BURMIN 

6 NPARH3) -HPART <3)+BURRl*SUPR 

37 IF<HPART<3).LT. . 0001) HPftRT(3) = . 0001 

98 HP ART < 4 > =STMR i *SUPR+HPART C4 > 

99 IF<HPARK4>.LT..0001) HPART<4>=. 0001 
inn HPARTC5)=ROTR1*SUPR+HPART<5) 

in{ IF(HPART<5>.LT. . 0001) NPART<5)=. OuOi 

Hi2 GO TO 20 



fi5 HSTRES3 

i 06 I F ( DEFC I T/BOL 1 . GT . . 67) . NSTRES=4 

0^ HPART ( ) =HPART ( > +HHUP*StEDR 1 /BOL. 1 

i,ift IF<NPART<2).LT. . 0001) NPARK2)-. 0001 

I b^ HPART < 3 > =NPART < 3 ) +XHUP*BURMI N/BOL 1 . 

i in IF<HPART<3) . LT. . 0001) HPAR1 <.3>=. UUUl 

1 1 1 TEMH=TEHN~XNLIP+PERN 

H IF<TEMH.LT.O.> TB-1H=0. 

113 GO TO 

114 ? NPART<2)=NPftRK2>+SEEDRl 

i 15 IF<HPART<2> . LT. . 0001 ) NPARK2)*. uuOl 

U 6 - HPART c;3>-HPART<3)+BURt1IH ^ 

117 IFWAPT<3).LT. . 0001) HPARTt.3;-=. Ouul 

g MPAFT Cl > -Hfep! < 1 > -DEFC I T*l.EFRS/REi3H 

119 IF<NPART(1>.LT. . 0001) HPARTa;-. 0001 

20 HPARTC4>=-'HPART<4)"DEFCIT*STMRS/ReSH 

joV IRHPARTfM) . LT. . 0001 ) HPART(!4>=. UUUl 

{02 HPART < 5:.' ---HPftRT < 5 ) -DEFC I T*RQTRS/RESN 

12^ IF<HPARTC5>.LT..0001> HPART<S)=. UUUl 

\%4 TEMH*TEMH-HHUP+PERH 

i'i.-'S HSTRES=2- 

J?^ USE-CDEFCIT-RESHVBOLl 

TF-? IFCUSE.GT. . 1>HSTRE5=3 

1 -^s I F < USE . GT . . 9 ) HS I RES=4 
lq ' IF<EMH.LE.HHUP> TEHH=0. 



TFMH-TEi'lM-F^C -RF.i'11 
' 



S 

114 IF<NPART<5> .LT, . 0001) 

146 20 STNWT=STMWT+W 



I 

I 

ill RCOH 



- 

Tp-rnTO+GPCO.Lr.O.Ol) GO TU 21 

snOH-HPART^ iGBLOsiHPARK2)/COTTON 
prON=HP ART < 3 ) / < COTTOH*0 . ^78} 
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PROGRAM LISTING-Continued 



1 62 LCONC-NPftRT C 1 > / 

163 IFCLCQNC.LT. .0001) LCONC=. QQCU 

164 IFa.EFRS.LT.0-> LEKRS=0. 
Ib5 IFCSTMRS. LT, 0. > STMRS=Q. 

166 IFCR01RS. LT, 0. ') RGTRS=0. 

167 RESN=LEFRS+STMRS+RQTRS 
163 IF(RESN.LT.Q.)RESN=0. 
169 IFUJ.NE.JJIOGO TO 80 

17fj WRITE (6, 5Q5LCQNC, SCON. BCOH, SFCON, RCON, NB'IKES . 
171 50 FORMATS ', ' CONCENTRATIONS '., 5F7.4., J NSFRES^M: 

\-fZ WRITEC6, 75>NPART 
IYS 75 FORMATS * . ' NPARTO-5) '> 5F8.4> 

174 >;-<> CONTINUE 
176 7? ULEF=LEFWT 

176 UGRCOT=GRCOTX 

177 WSTM=STMUT-US 

175 UCOTX=COTXX 
173 UROT-ROOTWT-WR 
ISO STMUT=STMUT-US 

181 RQQTUT=ROQTUT-WR 

182 RETURN 
1S3 END 



MCKIN*CLMCOT,J 

1 SUBROUTINE PLTHAP<PBOLL. WTBOLL, TAVG, HEMDAY, P&BOLN, PQBOLD. PQBOLX, 

2 1XTRES, HOBRL NOHOD, BOLLST, SQLQST, COTXX, GRCOTX, ROWSP, PQFLR, POLYHA, 

3 2FAGE, INOD, HOBR, FGPPLT, NUMGRN, NUMOPH, NVEG, HBRV, FRV, FAGV, UTBOLV, NV 

4 3, BLOOM, LEAFU, LEFLJT, NFL, CL I MAT, STMU, ROTU, GBLOS, ULOST. NSTRES, JJK ) 

5 DIMENSION CLIMATOQO, 7> 

6 INTEGER JKC45, 8>^3SO*0^ JKV<30/5)/150*0/ 

7 DIMENSION LJLOSTO) ' 

& DIMENSION STEMU<200> J ROOTU<200> 

9 COMMON xcOM^FRj DAY, I, JJ, PCOT., ISTSGR 

ill COMMON STMUT, RQQTUT 

11 REAL LEAFW 

12 REAL LEFWT 

13 REAL LEAFUT<00>^200*0.^ 

14 INTEGER SQLOST, BOLLST, BLOOM 

15 INTEGER FRV<30, 5>, FAGVC30, 5> 

16 DATA AVTEMP/O.A ISQ/0.^ TMAIN/O.x 

1? REAL TMPVC30)X30*0./,DSV<30)^30*0./ 

18 INTEGER HTLV<30}.'3Q*0/ 

19 REAL TBRVC30V30*G./, UTBGLV<3iX5> 

20 INTEGER XTRES, FR<45, S >, NTL<45V45*0/ J FAGE<45. 8 >, POLYHA 

1 REAL PCOTC200, 9>, PBOLLCSO), UTBOLLC45. S ), DSQ<45 V45*Q. <'> 

22 1TAVL<:45>X45*O.X,T':45>^43*0.^ 

23 IF<NSTRES.EQ.1>NSTPES=0 

24 ROOTU<JJ>*ROOTWT-ROTW 

25 LAST=0 

26 GBLOS=0. 

27 STEMU<JJ>STMUT-STMW 

28 IF<JJ,LE.24>GO TO 8000 
?3 STMUT=Sl(1UT-STEf'RJ<J.J-4> 

3 ROOTUT-ROOTWT-ROOTW C J J-24 ) 

31 ULOST<l>=STEMU<JJ-24> 

32 ULOST<2>=ROOTUCJJ-24> 

33 6000 CONTINUE 

34 PQFLR^O. 

35 XTRES=0 

36 LEAFUT <JJ) =LEFUT-LEAFU 

37 Xl't=0. 059-<2 r 147*POPPL1 >^'< 1 0. **7) 
33 HOBR=2. O+XM+ROUSP+1. 

39 C THE '+!.' IS ADDED TO NOBR TO ACCOUNT FOR THE MAIN STEM NODE 

40 C WHERE THE BRANCH IS ATTACHED. 

41 IFaSQ.EQ. n&O TO 3 

42 IFCI.GE.31JGO TO 1 

43 C AVTEMP IS ACCUMUl ATED AVG TEMP FOR FIRST 31 DAYS 

44 AVTEMP<=JJ-1>*AVTEMP+TAVGVJJ 

45 RETURN 

46 1 IFCAVTEMP.LE.27.JGO TO 2 

47 ISQ=1 

4S ISTSQR=I +CAVTEMP-27. )*3. 

49 INOD=e.+ 

50 HONOD-INOD 
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PROGRAM LISTING-Continued 

51 GO TO 3 

52 2 ISTSQR-I 

53 ISQ=1 

54 INGIi=7 

55 NONOB=INOD 

56 3 I F ( I . GE . I ST3QR ) GO TO 4 
5? RETURN 

59 4 IF<I.GT.ISTSQR>GO TO 5 
SO NVEG=3Q 

60 NBRV=4.5-Q.OQOQ895*PQPPLT+1 

61 FRLST=0 

62 FRLSTVQ 

61 IFCNBRV.LT. 1>NBRV=1 

64 TV*I+2.5 

65 MV=i 

66 TBRV<1>-I+6.Q 

67 DSV(n=JJ 

6ft DO 6 L=l, I HO LI 

69 I F- < LAST . EQ . 1 /' GO TO 6 

76 FRa. U--4 

71 FAGEO., 1> = 1 

72 6 CONTINUE 

73 TMA.IN=I +2.5 

74 KINQD> = I +6.0 

75 DSGKINQD>=JJ 
7t: NONOD-IHOD 

77 HOBR1=2 

73 IF (LAST. EQ. 1>GO TO 5 

79 FR.aNOD, 2> = 1 

ea FRva, i>-4 

81 5 IF-:'. NEWD A Y . EC! , > GO TO ? 

82 cora=o. 

G3 GRCOTX-0. 

B4 MUMGRN=0 

HR HUMOPH=0 

rsf. EiLOOM-O, 

B7 7 enL I NO = (. PQBOl. D+PiaeOLN ) /PwBuL X 

3fl IFCNFL.Fi".!. 1>GO TO 901 

ftS IFa'uUNC .LE..85)XTRES=1 

^ I F ( BOL I HC . L&: . . 6 > X fRES=2 

91 IF<BOLINO .LE..35>XTRES==3 

qi-;< I F ( BHL I NC . LE , . a J MTREy =4 

93 901 CONTINUE 

M IF<HEWDAY.EQ.O>GO TO 63 U 

xis DO 610 L-l.HOHOD 

9S DO 610 M^bNOBRl 

97 IF(FRa, M>.EQ. OJ GO TO 610 

^8 FAGEa; H)=FAGEa, M> + i 

ei-q I F < FR ( L.. M > . HE . 1 : GO TO a 

100 IF(FAGE<L, M>.NE, 2S)GO TO 8 

jni IFO...AST.EQ.DGO fu 

1 02 PQFLR=PQFLR+ PCOT < 1,7) 

irn IF(POLYNA.EQ.l>Gu TO 9 

104 FR<L,M>=4 

105 BLOOM=BLOOM+1. 
\\'\6. GO TO 8 

107 9 FR<L, M)-^ 

ir*3 8 CONTINUE _ 

l.'jt) IFXFRCL, M>,NE.2> UU 10 12 

ii. IF<FAGE<UM).HE.76> UU TO 1U 

1 1 i IF<I...AST,EQ. 1>GO TO 10 



113 10 lFc""EQ.JJK.AHD.LftST.EQJ.mn.FR<L,M).ea.2.fiHD.FflGE<U 

115 JFAGECL. M>=2S ij . __ 

\ifi NAGE=FAGE<.L, M;- ao _ A 

117 1F<NAGE.LT.1>GO 10 blO_ 

UG lF-OinCiE.GT.60 >NrtGb^-oU 

119 IF<F'R<L, M).HK.2> GO IU I'd 



.. 

1 ;5 ? GRCOTX^CRCOTXH UT BOLL C L, M ) 

U-"?. HO TO 610 

1 M 12 IF<FR<L,M>.NE.3> '",0 Tu blO 

i;->5 NUMOPN=NUMOPN-i-l , M . 

1 r-'g rf)TXM=COTMX+WTBOI. I . L. M > 

12? 610 CONTINUE 



PROGRAM LISTING-Continued 

128 DO 710 LV=3,NVEG 

129 DO 710 M'v'=LNBRV 

130 IFO'RVCLV, MV).EG.G> GO TO 71 

131 FAGVCLV, MV>=FAGVCLV, MVH1 * 

132 IF<FRV<LV, MV.>.ME.1> GO TO 73 

133 IF(FAGV<UAMV}.NE. 8) GO TO 78 

134 IFCI.AST.E0.0GO TO 78 

135 IF<PQLYNA.EQ. i) GO TO 79 

136 PQFLR=PGFLR+PCOTa, 7) 

137 FRVCLV, MV;-=4 

138 BLOOM=BLQQM-H . 

139 GO TO 78 

140 79 FRVCLV, HV>=2 

141 78 CONTINUE 

142 IF<FRVaV, MV>.NE..2> GO TO 32 

143 IF<FAGVCLV/MV).NE.76) GO TO 30 

144 IF<LAST.EQ.1>GQ TO SO 

145 FRVcXV, MV)=3 

146 80 CONTINUE 

147 IF<JJ^EQ.JJj^ 

149 NAGE=FAGVaV,' HV>- 28 

150 IF<HftGE,LT. 1> GO TO 710 

151 IFaiAGE.GT.60 >HAGE*=6Q 

152 IF<FRVaV,MV>.NE.2> GO TO 32 

153 NUHGRH=NUMGRN+1 

154 WTBOLV<LV, NV>=UTBOLV(LV, MVHPBOLL.<NAGh).t:OLIHC 

155 GRCQTK=GRCQTK-HdTBQLV<LV, MV) 
ISfcT GO TO 710 

157 82 IF(FRVCLV,t'1V>.HE,3> GO TO 710 

158 MUMOPN=NUMOPM+1 

153 COm=CQTXH-HJTBOLV<LV,MV> 

160 710 COHTIMUE 

161 630 CONTINUE 

162 IF< JJ. EQ. JJK. AND. LAST. EQ. 1 > I=TMAIN 
lfc-3 IF<I.LT.TMAIH)GO TO 14 

lfc-4 TMAIN-TMAIN+2.5 

165 NOHOD=HONOD+1 

IbS T(NOHOIi;-=I +6. 

167 DSQ<MONOD>*JJ ' 

1G8 IFCLAST.EQ.DGO TO 14 

Iby FRCHONOD, 1)=4 

170 FR<MOHOri,2> = i 

j'j;i C BURNING PINHEAD SQUARES 

!'-: IF(CLJMAT<JJ> D.GE.700. )FR<[IONOD. 2':>=4 

1.'3 FAGECNOHOD 1) = 1 

174 14 CONTINUE 

.175 DO 15 L=INOD, NQHOD 



1?7 IFCI.LT.T(L))GO TO 15 

IF<NTL<I.).EQ. 15GO TO 



20 IFa.LT.KLGG TO 15 
NTLCL)=0 

IM.'- TAVi.a> o. 

lt'4 !>SQfL>-JJ 

ICS ICNOP--0 

106 iiO Jt. M-UNi^R 

187 r-<iuNOiLijr.u,'Uu in ii> 

IBS iFCFRa, Nxnr.o) GO TO is 

lny ICNriD=l 

190 Ta) -1+6.0 

f?l IF<LftST.EQ. I) GO TO 17 

iyi; FR<L.M> = 1 

193 C BURNING PINHEAP SQUARES 

}?4 IF(CLIMAT<JJ, lXGE.?00.>F r Ra.,M) 

lys FHUECL, M)=i 

156 17 CONTINUE 

197 IFa.NE.INQB) GO TO 16 

19b HOBRIHOBRI-H 

199 16 CONTINUE 

200 15 CONTINUE 

2'-'l IF<HV.GE.HVEG) GO TO 90. 

202 IF( JJ . E0. JJK. AND. LAST. EGi. 1 ) I-TV 

2Q3 IFCI.LT.TV> GO TO 90 

204 TV 
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PROGRAM USTING-Continued 



NV=NV+1 

IFCLAST.EQ. DGO TO 900 

2H7 FRV<NV, i>=4 

2li!-i 900 CONTINUE 

?Q9 IF<NV.LT.3>GQ TO 802 

510 IF<LAST.EQ. OGQ TO 90 

211 FRVGIV, 2> = 1 

212 C BURNING PI HUE AD SQUARES 

213 i F < CL i MPT ( jj, i > . L;E .700.) FRV ( NV, 2 > =4 

214 TBRV'iNV > = !+. 

215 800 FAGV(NV.. 1> = 1 

216 90 CONTINUE 

21? IF(NV.LT.3>GQ TO 802 

218 DO 95 LV=3, NV 

219 TMPVaV> 

220 IF<I.LT.TBRV:LV GO TO 35 

221 IF<HTLVCLV).EQ.1> GO TO 97 

222 NTLV<LV>=1 

223 TBRVCLV>=TBRV<LVH0.333*<3 

224 97 IF<I.LT.TBRVaV GO TO 95 



25 



TBRV<LV>-TBRV<LV>4-6. 
NTLV(LV>=0 



IVHOD=0 

DO 96 MV^LNBRV 
IFaVHOD.GT.O) GO TO 96 
IF'^FRVCLV, MV).GT.O> GO TO 96 



234 iFaAST.ee. oca TO 95 

35 FRVCLV, MV>1 

36 C BURNING PIHHEAH SQUARES 

-37 IF<CLIMAT< J-l 1 ) . CiE.SOCi. )FRV<LV/ MV>=4 

33 FRGVCLV, MV) = i 

39 96 CONTINUE 

40 95 CONTINUE 

41 802 CONTINUE 

42 SPLOST^'i. 

43 BOLI.ST = 0. 

44 MVN^NStRES. 

245 TMA I N= Wi IN-i- i . 33+XYN^ , 

246 TV=T'v'H-l. 33*XVN^3. 

47 IF<I.AST.EQ. DGO TO 1000 

248 DO 1002 L=INOD., NONOD 

4'3 DO 1002 M=1,NOBR 

250 IFtFRa.hO.EG.S.AND. JKa.MXEQ.JJ^GQ TO 1001 

251 IF^FRCL, M>.EQ.6. AND. JKCL. H>.EQ.JJ>GO TO 1003 
52 GO TO 1.002 

253 1001 FRCL, M>~4 

254 SQL08T=SQLQST+1 

255 GO TO 1002 

256 1003 FR(L,M>=4 

257 BQLLST=BDLLST+1 

253 GRCCITX-GRCOTX-I.I.IT BOJ..L < L> H > 

259 GBLOS-GGLOSH-WTBOI L<U M> 

260 WTBOU_a..M>^0. 

261 1002 CONTINUE 

262 1000 CONTINUE 

263 IFCLAST.EQ. 1>GO TO 000 

264 HO 002 MV-1. NBRV 

265 DO 2002 LV=1, HVEG 

266 IF<FRVa.V, MV> .EQ. 5. AND. JKV<LV, MVJ.EQ. JJ)GO TO 2001 

267 IF<FRVa.,V-. MV>.EQ.6. AND. JKV<LV, MV> .EQ. JJ)GO TO 2003 
26S GO TO 2002 

269 2001 FR'v'a'-,Mf',O=4 

270 SC!LOST=SQLOSTH-1 

271 GO TO 2002 

272 2003 FRV<UM1V}=4, 

273 BOLLST=BOLLST-fl 

274 GRCOTXGRCOTX-WTBOLV < L.V, MV ) 

275 GBLOS-GBL OS-H.JTBOL.VaV. MV > 

276 WTBQLV<LV, MV) = 0. 

277 2!?02 CONTINUE 

a;-a ww CONTINUE 

c^^ IF<XTRES.L.E.O..AND.NS7RES,EQ.O>GO TO 125 

SO DO 114 L^INOD, NOHOD 

81 TCL>-T<1. > + l . 33*HVN/4. 
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PROGRAM LISTING-Continued 



282 IF<XTRES.EQ.4)T 

IF(XTRES.EQ.3.)T 
IF<XTRES.EQ.2)T 
IF<XTRES.EQ. 1>T 



L ">~ l 
L>=T' 

[.:=-[ 



DM. 20 
L) + . 6 
' L ) + n . 



28G JF<LAST,Q. DGCi TO 1140 

287 DO 114 M=LNOBR 

288 IF<FR'.:L, N).NE. 1 >GO TO 119 
28y IFCXTRES.EQ, 0>GO TO 119 

290 GO TO Cl 09, 110. Ill, 112), XTRES 

291 109 IFCFAGE<L.. MXGE. 1:?. . AND. FAGECL, r-D.LE. 12. >GO TO 113 

292 GO TO 114 

293 110 IF<FAGE(L,M>.GE. 12. . AND. FAGECL, M ; ,LE. 12. )GO TO 113 
2y4 GO TO 114 

295 111 IFCFAGEa, M>.CE,9. Q.flND.FAGECL. MXLE. 12. >GO TO 113 

296 GO TO 114 

297 112 IF<FAGE<L M>.GE. 8.0. AND. FACE <L.M;>.LE. 13. >GO TO 113 

298 GO TO 114 

299 113 CONTINUE 

300 FRCL, N>-5 

301 JKCL, M>=JJ+3 

302 GO TO 114 

303 119 CONTINUE 

304 IFCNSrRES.EQ.OiJGO TO 114 

30ri GO TO < 1 14, 1 16, 1 17, 1 1 8>, NSTRES 

306 118 IFCFRCL, M>.EQ.2.rtHD.FfHGE(L, M).LE.38)GO TO 120 

307 IFa-'RCL, M>.FU. 1 .flND.FftGECU M).LE.6>GO TO 114 

308 117 IFCPRCL, tD.Eft.S.AND.FAGECU M>. LE. 33)GO TO 120 

309 116 IF<FR<L J (1>.EQ.1.ANE.FAGEC6, M).LE,3>GO TO 114 

310 GO TO 114 

311 120 CONTINUE 
-112 FRCL. H>~6 

313 JK<L,i-t>=JJ-f8 

314 114 CONTINUE 

315 1140 CONTINUE 

316 DO 214 LV*LNVEG n 

318 !F<xfRES.EQ."4)TBRV<LV>=TBRV<LV> + 1.50 

319 rF<XTRES.EQ.3>TBRV<LV)'=TBRV<LVH1.20 

320 IF<XTRES.ELt!.2)TBRVaV>=TBRVc:LV)-n:i.60 

321 IFCXTREb.EQ. l')TBRV<LV>=TBRV<LV> + 0.20 

322 IF<LAST.EQ. OGO TO 2140 

323 DO 214 I1V1,NBRV 

324 IF<FRV<LV.MV).NE.OGO TO 219 
3;-J5 IFCXlRES.EQ. 0>UO TO 219 

3'6 GO TO <209, 210, 11, 212),XTRES 

327 209 IF<FAGV<LV, MV).GE. 12. . AH.FAGV<LV, MV>.LE. 12. )GO TO 213 

328 GO TO 214 

329 210 IFtFrtGVaV, MV).GE. 12. . AND. FAGVCLV, MV> .LE. 12. )GO TO 213 

330 GO TO 214 

331 21 1 IF<FAGVaV. 11V) .GE. 9. 0. AND, FtiGVCLY.. MV) . LE. 12, >GH TO 213 

332 GO TO 214 

333 212 IFvFAGVaV, HV) .GE. 8. 0. ftND. FAGVCLV, MV) . LE, 13. >GO TO 213 

334 GO TO 214 

335 213 CONTINUE 

336 FRV<LV, HV)=5 

33S GO TO 214" 

339 219 CONTINUE 

340 IFCNSTRES.EQ.Q>GiQ TO 214 

341 GO TO <214, 216, 217,213), NSTRES 

342 213 IFCFRV<LV>MV).EQ.2.ANn.FAGV<LV.MV).LE.38>GO TO 220 

iFu-Rva.v, nv>.EC!. i .AND.FAGVCLV, MV>. LE.SJGO TO 214 



343 

344 GO TO 214 

345 217 IF<FRV<LV,MV>.E0.2.AND.FAGV<t_V,MV>.LE,33>GQ TO 220 

IFCFRVCLV, MV) . EQ. LAND. FRGV(LV, MV). LE. 3>GQ TO 214 



346 2ib 

347 GO TO 214 
34S 220 CONTINUE 
349 FRVaV, MV>=6 

351 214 C ON I' I HUE' 

352 2140 CONTINUE 

353 IFCXTRES.EQ.OJGO TO 126 

GO TO c;i30, 131, 132, 133>,XTRES 
133 



GO TO 126 



PROGRAM LISTING-Continued 



3FiSi TV=T 

36 M GO 1 



TV=T>'+.4 

r i'~' TN i?6 
.130 TMA I N-= Ti1 A I N+ . 

TV=TV+0. 

COHTiHUt 

CONTINUE 

IFCJJ.L.?1>GO TO 2141 

LEFWT=LEFMT-I..EAFWT < J-J-7 ) 

ULOST < 3 > =LEHFUT C J J-7 0> 
2141 CONTINUE 

RETURN 

END 
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PROGRAM LISTING-Continued 



C'CATA.. L 
HATAQ06- 

000001 

000002 

000003 

000004 

000005 

000006 

OQOUQ7 

000008 

000009 

000010 

OOOOU 

000012 

000013 

000014 

000015 

000016 

000017 

000018 

000019 

000020 

000021 

000022 

000023 

000024 

000025 

000026 

000027 

000023 

000029 

000030 

000031 

000032 

000033 

000034 

000035 

000036 

000037 

000038 

000039 

000040 

000041 

000042 

000043 

000044 

000045 

000046 

000047 

000048 

000049 

000050 

000051 

000052 

000053 

000054 

000055 

QGOG56 

000057 



COTDA. 
RLIB69 01^16-16iC60 

DATA FDR SIMCOT II. THE DATA CONSISTS OK SIX SECTIONS, FOUR OF UHTCH ARE 
REQUIRED BV THE PROGRAM FOR PROPER OPERATION. THE OTHER TWO SECTIONS 
MUST BE SUPPLIED BV THE USER TO SIMULATE HIS CROP AT HIS LOCATION. THE 
FOLLOWING DATA ARE AN EXAMPLE WHICH THE USER CAN USE TO CONSTRUCT HIS 
OWN DATA FILE. 

*#iJ<l|tH^:*:f:Ht#:f.N<*#H<:4(#*:4<Hi#*:4-*+M:^ 

PROGRAM SUPPLIED DATA. 
l234567e301234567e9Q12345e789012345678901234567e901S34567e9Q123456789Q123456P390 



00005?' 
000060 

000061 
0000^2 
OOOOCJ 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 



C PORTS K 


PQSTM 3 C 


PQLEF HPGFLR 


KNOT USED] 




,020 


.20 


.20 


.00 


.10 




. 020 


.20 


.20 


,00 


.05 




.020 


.20 


.20 


.00 


.20 




.020 


.20 


.20 


.00 


.30 




.020 


.20 


.20 


.00 


.40 




.020 


.20 


.20 


.00 


.48 




.020 


.20 


.20 


,00 


.56 




.020 


.2fi 


.20 


,00 


. 64 




. 020 


.20 


.20 


. fi n 


.72 




.020 


.20 


.20 


.00 


.80 




.030 


.30 


.30 


.00. 


.92 




.030 


, rtii 


.30 


.00 


1.04 




.030 


.30 


.30 


.00 


1.16 




.030 


. 3fl 


.30 


.00 


1.2S 




.030 


.30 


.30 


.00 


1.40 




.050 


.50 


.32 


.00 


1.56 




.050 


.50 


.32 


. fl f 1 


1.72 




.050 


.50- 


.32 


.00 


1.S8 




.050 


.50 


.32 


.00 


2.04 




.050 


.50 


, "?, 


. 00 


2.20 




.030 


.80 


.48 


.00 


2.46 




.080 


,80 


.48 


.00 


2.72 




.080 


.80 


.48 


.00 


2.98 




.080 


.80 


.48 


.00 


3. 4 




.080 


.80 


.48 


.00 


3.50 




.oeo 


.60 


.40 


.00 


3,70 




.060 


.60 


,40 


.00 


3,90 




.060 


,66 


.40 


.00 


4. 10 




. fifiO 


.60 


.40 


, 00 


4.30 




.060 


. 6 


.4ff 


, mi 


4.50 




.080 


.80 


.60 


.00 


4. 76 




.080 


.80 


.fin 


. 00 


5.02 




.080 


.80 


.SO 


.00 


5,28 




.080 


.80 


. 6- fl 


.00 


5,34 




.080 


.80 


.60 


. 00 


5.80 




.080 


.80 


.60 


. 00 


5.80 




.080 


.80 


.60 


. 00 


5.80 




. 080 


.Rfi 


, hfl 


.00 


P., ftfi 




.080 


.80 


,60 


.00 


5.80 




.080 


.80 


.60 


.00 


5. SO 




.080 


.80 


.60 

LI 'I'll-'J-J, 


.50 


5. SO 




PROGRAM SUPPLIEB'DftTA" 


"T 'T't'-t'-T 

.THE 


FOLLOWING 


IS THE PBOLL HATA. 


#*..+.H.#.M.*.*!M..tf 


.040 .040 . 


050 . 060 . 


070 . 


100 .225 . 


225 .225 .225 ,225 


.225 .225 .225 .225 .225 


.225 .225 . 


225 .225 . 


225 . 


225 ,225 . 


225 .225 ,225 .215 


.200 . 195 .190 .175 . 160 


.150 . 130 . 


120 .110 . 


100 . 


095 . 080 . 


075 .070 . 060 . 050 


.040 . 035 .030 .027 .020 


.015 .010 . 


009 .007 . 


005 . 


004 , 002 . 


001 





:t!:t<+*#$^^ 

USER :.:U'Pl lD fiATU.SUFVi. i 1 HILt. 

UEA1HGR HOR COPIi'iH COUNTY/ MISS. , 1^72 
SUPPLY NUMBER OF DAYS OF WEATHER DATA IN DATA. 
187 






SUPPLY WEATHER DATA FOR GROWING SEASON. 

123456 79Qi234567890134567S3QI234567890I2345673Q123456789012343678qni23-t56 7890 

C SOLAR 3C TMAX K THIN It RFALL K EVAP 3C DAY NO K C02 T ] 



138.00 
468.00 
443.00 
405.00 
208.. 00 
60S. 00 
6J8. 00 
589.00 
4S4.00 
5S4. 00 
5S4 . 
658. 00 
631.00 
446.00 



80. 00 
80,00 
80.00 
86. 00 
78,00 
79.00 
77.00 
R . fl 
81.00 



00 

00 
00 
4.00 
70.00 



76 
81 
76 



54.00 
54.00 
54 . 

c- -7 I-, ,-. 

"SO. I'NJ 

59. 00 

47, on 
52.00 
00 
00 
00 



64 
65 



1.53 
69 



.10 



60. 00 
53. 00 
66. 00 



06 


119.00 


01 


120. 00 


15 


121.00 


20 


122,00 


20 


123.00 


06 


124.00 


25 


125. 0(1 


?? 


126. 00 


19 


127. 00 


18 


128.00 


04 


129.00 


15 


130.00 


22 


131,00 


22 


132. 00 



PROGRAM LlSTING-Continued 



000080 
000081 
000082 
000083 
000084 
OC 008 5 
000086 
000087 
000088 
000089 
00009 Ci 
000031 
000092 
000093 
000094 
000095 
GOO 096 
000097 
000098 
000039 
000100 
000101 
000102 
000103 

oca 104 

000105 
000106 
000107 

000108 
000109 
0001.UJ 

000111 
00&112 

00011:3 

000114 

000115 

000116 

000117 

000118 

000119 

000120 

000121. 

000122 

000123 

C001<?4 

000125 

000126 

000127 

00012S 

000129 

000130 

000131 

000132 

000133 

000134 

000135 

000136 

000137 

000136 

000139 

000140 

000141 

000142 

000143 

000144 

000145 

000146 

000147 

000148 

-000149 

GOOtSO 

000151 

000152 

000153 

000154 

000155 

000156 

000157 

000158 

000159 

000160 



212. 00 


69. 00 


64.00 


658. 00 


81. 00 


60.00 


663. 00 


SO. 00 


60.00 


69S. 00 


79. 00 


56 .-00 


647. 00 


86. 00 


54.00 


547. 00 


&2. 00 


60.00 


656. 00 


77. 00 


5s.no 


661, OCi 


78. 00 


58.00 


645. 00 


87. 00 


56.00 


657. 00 


87. 00 


56.00 


641.00 


91. 00 


61. 00 


64 S. 00 


90. 00 


65. 00 


635.00 


90.00 


73.00 


663. 00 


as. oo 


61 . DO 


596. 00 


90.00 


59. 00 


596. 00 


88. 00 


62. 00 


596. 00 


89. 00 


60. 00 


3'^5 . 00 


90. 00 


61 . 00 


692. 00 


89.00 


59. 00 


638. 00 


81.00 


57.00 


706. 00 


86. 00 


50.00 


707. 00 


79. 00 


46.00 


690. 00 


90.00 


54.00 


6.H5. fiO 


89.00 


55. 00 


630.00 


91.00 


54.00 


643. 00 


91.00 


60.00 


515. 00 


97. 00 


65.00 


532. 00 


94. 00 


65.00 


396.00 


93.00 


62.00 


493. 00 


92.00 


69.00 


515. 00 


90.00 


65. 00 


6S3. 00 


90.00 


68.00 


410. 00 


92. 00 


68.00 


301.00 


91,00 


69.00 


396. 00 


92,00 


66.00 


352. 00 


89.00 


70.00 


656. 00 


90.00 


70. 00 


648. 00 


91.00 


71.00 


652. 00 


89.00 


69.00 


657. 00 


95.00 


65.00 


548. 00 


9 l.'OO 


68.00 


3^6. 00 


92.00 


61.00 


301. 00 


90.00 


62.00 


545. 00 


92. 00 


71.00 


241. 00 


89. 00 


68,00 


5S4. 00 


93. 00 


72.00 


607, 00 


94, 00 


73.00 


554. 00 


93, 00 


75.00 


215. 00 


90. 00 


70.00 


370. 00 


94.00 


68.00 


602. 00 


92. 00 


68.00 


635. 00 


93. 00 


73.00 


260. 00 


93. 00 


69. 00 


278. 00 


89.00 


67.00 


659.00 


77.00 


67.00 


669. 00 


81.00 


59.00 


692. 00 


85.00 


57.00 


503. 00 


36.00 


55.00 


611.00 


89.00 


59.00 


551.00 


88.00 


65.00 


614.00 


91.00 


63,00 


6" J "0. 00 


92.00 


66. 00 


568. 00 


85.00 


63.00 


533. 00 


89.00 


67.00 


4C1. 00 


90. 00 


65.00 


598. 00 


93. 00 


70.00 


499. 00 


88.00 


68.00 


6? 7. 00 


90. 00 


67.00 


663.00 


92.00 


96.00 


601.00 


89.00 


68,00 


490.00 


91.00 


68, 00 


671.00 


94.00 


66.00 


547.00 


95.00 


70.00 


516.00 


94.00 


t-y. 00 


551.00 


95.00 


72.00 


604. 00 
592.00 


93. 00 
93.00 


71.00 
73.00 


561.00 


92.00 


73.00 


240.00 


85.00 


-.g 


4^4.00 


84. 00 


69.00 


519.00 


89,00 


69.00 



.04 

.05 
.13 
.24 
.07 



.34 

.23 

.91 



tl 
26 
15 



.61 
.53 



.83 
.45 



.02 



.50 
.05 

1.74 

,68 



.19 


133.0.0 


.09 


134.00 


.19 


135.00 


.28 


136.00 


.28 


137.00 


.27 


138.00 


.21 


139.00 


.26 


140.00 


.33 


141.00 


.28 


142,00 


.29 


143.00 


.25 


144.00 


.30 


145.00 


.27 


146.00 


.33 


147.00 


.25 


148.00 


9 


149.00 


124 


150.00 


.16 


151.00 


,32 


152.00 


.25 


153. 00 


.24 


154.00 


.28 


155.00 


.26 


156.00 


.28 


157.00 


.28 


158.00 


.26 


159.00 


.32 


160.00 


.23 


161.00 


.20 


162.00 


.23 


163.00 


.22 


164.00 


.7 


165.00 


.17 


166.00 


.11 


167.00 


.11 


168.00 


.09 


169. 00 


.23 


170.0ft 


.28 


171.0D 


.33 


172.00 


.36 


173.00 


.20 


174.00 


.17 


175.00 


.10 


176.00 


.22 


177.00 


.12 


178.00 


.26 


179.00 


.36 


180.00 


.29 


181.00 


.08 


182.00 


,21 


183.00 


.26 


184.00 


.28 


185.00 


.19 


186.00 


.11 


187.00 


.25 


188.00 


.25 


189.00 


.23 


190.00 


.18 


191,00 


.19 


192.00 


.22 


193.00 


.27 


194.00 


,27 


195,00 


.27 


196.00 


.24 


197.00 


.20 


198.00 


.28 


199.00 


.20 


200.00 


.24 


01.00 


.28 


202.00 


.27 


203.00 


.19 


204.00 


.25 


205.00 


.22 


206.00 


.27 


207.00 


.27 


208,00 


.29 


209.00 


.28 


210.00 


.30 


211.00 


.12 


212.00 


.15 


213.00 



PROGRAM LISTING-Continued 

000161 609.00 90. 00 66.00 .05 214.00 

000162 492. 00 91, 00 68. 00 .22 215. uy 
QOQ163 610. 00 93, 00 68. 00 .25 216. Ou 

000164 623.00 93.00 70.00 .26 217. UO 

000165 626. OLI 92. 00 70,00 ,'f 2lu.0u 

000166 646. 00 92. 00 69. 00 . 25 219. 00 

000167 635. 00 95. 00 74. 00 . 34 220. 00 

000168 599. 00 92. 00 74, OU . JJ 221. uu 

000169 556. 00 95. 00 73. 00 . 27 222. 00 

000170 461 . 00 93, 00 68. 00 . 30 223. 00 

000171 4*11.00 96.00 67.00 .19 224. uu 

000172 370. On 94. 00 66. 00 . 23 225. 00 

000173 356.00 91,00 68.00 .09 .18 226.00 

000174 5^2. 00 93, 00 68, 00 . 15 227. 00 

000175 550.00 89.00 68.00 .25 ,24 223.00 

000176 430.00 92.00 67.00 .27 229.00 

000177 521.00 93.00 68.00 .24 230.00 

000178 504. 00 92. 00 63. 00 . 25 231 . 00 

000179 566. 00 96. 00 69. 00 . 24 232. uO 
0001.80 498.00 98.00 70.00 .24 233.00 

000181 412.00 99.00 73.00 .29 234.00 

000182 439. 00 97.00 77,00 ,28 235.00 

000183 509. 00 95. 00 68. 00 . 33 236, 00 
0001S4 259.00 96.00 68.00 .21 237.00 

000185 402. 00 94.00 68.00 .41 .22 238,00 

000186 319. 00 94. 00 69. 00 . 05 . 13 239, 00 
0001S7 536.00 93.00 68.00 .16 40.00 

000188 584,00 89.00 61.00 .27 241-00 

000189 551.00 91.00 62.00 .25 242.00 

000190 520.00 92.00 61.00 .22 243.00 

000191 460,00 95.00 63.00 .23 244.00 

000192 385.00 92.00 69.00 .19 245.00 

000193 478. 00 95. 00 67, 00 . 03 . 19 246. 00 

000194 435.00 96.00 65.00 .18 47.00 

000195 270.00 96.00 67.00 .24 248.00 

000196 262. 00 90. 00 70. 00 . 13 249. 00 

000197 514.00 93,00 63.00 . t 50.00 

000198 472.00 96.00 73.00 .19 251.00 

000199 522. 00 98. 00 72. 00 . 22 52. 00 

000200 495. 00 95. 00 73.00 .24 53. 00 
00020'! 539.00 -95.00 6S.OO .30 254.00 

000202 401 . 00 91 . 00 69. 00 . 21 55. 00 

000203 485. 00 96. 00 72. 00 . 15 56. 00 

000204 514. 00 96. 00 61. 00 .20 257. 00 

000205 530, 00 97. On 65. 00 . 30 58. 00 

000206 5fi3, ON 99. 00 64. 00 . 26 59. 00 

000207 286. 00 94. 00 67. 00 . 24 260. 00 
000203 365.00 96.00 66.00 1.43 .12 261.00 

000209 518. 00 96. 00 69. 00 ..02 . 15 62. 00 

000210 483. 00 94. 00 70.00 .23 263. 00 

000211 47S.OO 95.00 67.00 .44 .21 264.00 

000212 399.00 91.00 66.00 .20 65.00 
OC0213 200. 00 90. 00 68. 00 1. Jl . 16 266. 00 

000214 355.00 91.00 68.00 .62 . 05 67.00 

000215 238.00 90,00 66.00 .13 268.00 

000216 162.00 S3. 00 72.00 . 13 269.00 
Q0021? 361.00 87.00 67.00 .08 70.00 

000219 343. 00 88. 00 70. 00 .45 . 17 271 . 00 
000239 365.00 89.00 70.00 .29 . 18 2i>2. 00 

000220 3S?. 00 37.00 69.00 1.22 . 12 73.00 

000221 5-14.00 78.00 57.00 .34 74.00 

000222 5?_3. 00 72.00 41.00 . 19 275.00 

000223 518.00 78.00 43.00 .15 276.00 
00022-1 458.00. 78.00 54.00 .17 277. 00 
0002;?5 409.00 88,00 65.00 .02 .14 278.00 
000236 410.00 87.00 65.00 .17 279.00 
CQ3#?7 355.00 85.00 58.00 .17 2D. 00 
00022S 331. 00 76. 00 64. 00 . 17 281 . 00 
00322? 385. 00 73. 00 52. 00 . 09 282. 00 

000230 395.00 81.00 52.00 .12 83.00 

000231 400.00 87.00 51.00 . 12 284.00 

000232 432.00 86.00 55,00 .1? 285.00 

000233 409. 00 8G. 00 55. 00 .14 286. 00 
OQQ234 361.00 89.00 58.00 .14 287.00 

000235 416.00 90,00 59.00 .14 288.00 

000236 339.00 81.00 66.00 . 17 289.00 

000237 402.00 86.00 53.00 .15 290.00 
00023S 393.00 90,00 67.00 .15 91.00 

000239 351.00 89.00 67.00 . 16 292.00 

000240 104. 00 73, 00 50. 00 .13 .26 293. 00 

000241 376.00 70.00 37.00 .03 .05 94.00 

64 
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000244 
nnO*45 
QliQ246 
nfifP47 
fjnii^'4 1 -: 
OQ024? 



000258 



On 0263 
000264 
000265 
000266 
000^67 
0002^ 
OOnleS 
000270 



OOOLYb 
000277 
000278 



0002 
(1 fi ri'" 1 ?: 1 ^ 



^ 

000297 



("'! . 


U 


"-'C 


00 


51. 


i j o 


4"'! 


6 6 


78 . 





*! 


ij 


346. 


00 


79, 


U U 


t'~". 





1-11. 


00 


67 . 


00 


cr '<-_, 


1 J 


31. 





60. 





39. 





34. 


66 


S" 7 


1 J 


,^i H , 





2* : .;' . 





65. 





52. 


00 


34. 


l"l I'l 


.69. 





48. 





71. 


i"t U 


7-3 


1 j 1 j 


CJ'"i 





t il 


00 


I'i^ 





54' 





ir-s. 


00 


ys. 





fc.6, 


ij 



08 

07 

11 
15 
U 



29? . 00 
jLtiJ.UU 
301. 00 



304. Oil 

3 05. oo 

^^ 

FPOGR.-iM SUPPLtED DATA.TftBLK OF DECL IMn I ION VALUES FOR SUN. ^ ., ,,__^_,._._ . 

r^4^-.7ft9ni?^1Sfi^Tfti:^4/.fiyR^Oi?^4^b78T01234567:3901;234 

: : 4 =flcl -fsnS -1719 



1610 



71 



is 



1709 



157 
IS57 



-31 



1811 



1*14 
1341 



14U 



. 
3iU 



1450 



1712 









-105 



-i"S3S 



115 



174 



1312 



-3945 



7S^g7^^^SSS^I^^^i2MKVB9<)12379901234M7e90 

"' " h "" ii ? =! ,2 .ft .0 .0 5.0 2.0 .5 .0 .0 
2^2 l!6 .5 7.7 5.6 4.0 F.7 2.0 S. 7 7.2 6.0 5.0 4.5 

7.2 6 . S ^ . i"i 

-t-f+:H"+i:1':t::f:t:*it:if.t"4"t: + ***:+ t=t::t:* + :p**.t:<'-+ + i1 :f |::t*'.- l^lt f^ + if t:'^f H-=4 :|::i-+^t :4==4 +if +:f^"f *:fi 

JED DATA. USER MUST FURNISH THE FQLLOU1HG DATA TQJOIMULATE HIS CROP,, 



CLATliUDEJCSEASON LJESOIL CAPK EMEftGE J C ROWSP 

34 170 1.69 1 U-'5 lu 

t POM 3C f-FM ][IN1TIMLN][ RESIDN 3 
1 fi 0, fin ?'H. 30. U 
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K LEFfiDDJC Pt I EPF 1C POPPL T ] 
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Oft 0294 
000 95 



LJJKHI..HSTJC JB ] 
1 1 
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EXAMPLE RUNS 



The user of SIMCOT II must employ a data 
file as illustrated in this manual. Two examples 
are given. In both examples all the data are the 
same except for the last line of the data file. 

Cotton Growth Simulation Run 

Data input: SIMCOT II data file, with em- 
phasis on last line as follows; 

JJK LAST JB - Variables 

12345G78901234567890 <- Column count 

10 10 <- The data 

To execute the program, the user must com- 
pile in FORTRAN, map, and execute the abso- 
lute element. The data are added to the run- 
stream after the execute command with proper 
job control language. Given below is the output 
of SIMCOT II with the above data file as input 
to the program. Notice that the plant is listed 



every 10th day; however, this can be changed by 
the user to suit his needs by changing only the 
last data card. 

The normal output in this case prints the plant 
out in graphical form. The following symbols 
indicate plant parts: X, square; *, green boll; # t 
open boll; 0, abscised site or main-stem node; I, 
fruiting-branch internode; and =-, main-stem 
internode. 

Various parameters are also printed out. All 
are self-explanatory except "concentrations" 
and "NPART (1-5)." The concentrations are 
the concentrations of nitrogen by percent in the 
leaves, seed, burrs, stems, and roots. NPART 
(1-5) is the nitrogen accumulation by weight in 
leaves (1), seed (2), burr (3), stems (4), and 
roots (5) . 



INPUT DATA 



PDATA, L 


CLMBATA.. 


CLMDATfl. 










DATA006-RLIB67-10 


12/05-13 


: 26:31 








000001 


. 020 


.20 


.20 


.00 


.10 




000002 


.020 


. 20 


.20 


.00 


. 05 




000003 


.020 


.20 


.20 


. 00 


.20 




000004 


.020 


.20 


.20 


. 00 


.30 




000005 


. 020 


.20 


.20 


.00 


,40 




000006 


.020 


.20 


.20 


. nn 


.45 




000007 


.020 


.20 


.20 


. 00 


.56 




000008 


. 02 


.20 


.20 


. 00 


.64 




000009 


. 02 


. 20 


.20 


. 00 


.72 




000010 


, 020 


. 20 


.20 


. 00 


.SO 




000 11 


. 030 


.30 


.30 


.00 


.92 




000012 


.030 


.30 


.30 


.00 


1.04 




000013 


.030 


.30 


.30 


.00. 


1. 16 




000014 


.030 


.30 


.30 


.00 


1.28 




000015 


.030 


,30 


.30 


.00 


1.40 




000016 


.050 


.50 


.32 


.00 


1.56 




000017 


.050 


.50 


.32 


. 00 


1.72 




000018 


.050 


.50 


.32 


. 00 


1.88 




000019 


.050 


.50 


.32 


. 00 


2.04 




000020 


. 050 


.KG 


.32 


. 00 


2.20 




000021 


.030 


.80 


.48 


. 00 


2.46 




000022 


.080 


.30 


,48 


. 00 


2.72 




000023 


. OSO 


.SO 


.48 


. 00 


2.98 




000024 


.030 


, fifi 


.48 


. 00 


3.24 




000025 


.OSO 


.80 


.48 


.00 


3.50 




000026 


. 060 


.60 


.40 


.00 


3.70 




000027 


.060 


.60 


.40 


.00 


3.90 




000023 


.060 


.66 


.40 


.00 


4.10 




00002*3 


. 060 


.60 


.40 


.00 


4.30 




000030 


.060 


.60 


.40 


.00 


4.50 




000031 


.OSO 


.80 


.60 


. 00 


4.76 




000032 


.080 


.80 


.60 


.00 


5. 02 




nOQiV*3 


.OSO 


.80 


.60 


.00 


5.26 




000034 


.080 


.80 


.60 


. no 


5.54 




000035 


.OSO 


,UO 


.60 


.00 


5 . S 




000036 


.OSO 


,80 


.60 


.00 


5.80 




000037 


.080 


.80 


.60 


.00 


5.80 




000038 


.080 


.80 


.60 


.00 


5.80 




000039 


.030 


.80 


.SO 


.00 


5.80 




000040 


.OSO 


.80 


,60 


.00 


5.80 




000041 


.080 


,ftQ 


,60 


.50 


5.80 




000042 
000043 
000044 

000045 


.040 
.225 
.150 
.15 . 


.040 .050 
.225 .225 
.130 .120 
010 .009 . 


.060 .070 .100 
.225 .225 .225 
.110 .100 .095 
007 .005 .004 . 


.225 
.225 
.080 
002 . 


.225 .225 .225 .225 .225 .225 .225 .225 
.225 .225 .225 .215 .200 .195 .190 .175 
.075 .U70 .060 .050 .040 .035 .030 .027 
001 


.225 
.160 
.020 


000046 


WEATHER FOR COPIriH COUNTY 


.MISS 


. ; 1972 





63 



INPUT DATA-Continued 



000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
00005? 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
00006? 
000063 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000030 
000 OS 1 
000082 
000083 
000084 
000085 
OOOOS6 
OOOOS7 
000 OSS 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
00009S 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
0001 OS 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 

ooona 

000119 
000120 
000121 
000122 

000123 
000124 
000125 
000126 
000127 



187 






136.00 


SO. 00 


54.00 


466. 00 


80. 00 


54. 00 


443. 00 


80. 00 


54. 00 


405.00 


86.00 


.57.00 


20S, 00 


78.00 


60.00 


608. 00 


79.00 


59.00 


698. 00 


77.00 


47.00 


583. 00 


80.00 


52. NO 


434. 00 


81.00 


50. 00 


584.00 


76.00 


64.00 


584.00 


81.00 


65. 00 


658. 00 


76,00 


60. 00 


631 . 00 


74.00 


53.00 


446. 00 


70.00 


66. 00 


12. 00 


69.00 


64. 00 


658, 00 


81.00 


60. 00 


663. 00 


80.00 


60. 00 


698. 00 


79.00 


56. 00 


647.00 


86.00 


54. 00 


547. 00 


82 . 


60. 00 


656. 00 


77.00 


55. 00 


661.00 


78.00 


58. 00 


645. 00 


87.00 


56. 00 


657.00 


87.00 


56. 00 


641.00 


91.00 


61.00 


648. 00 


90.00 


65.00 


635. 00 


90.00 


73.00 


663.00 


88.00 


61.00 


5y6. 00 


3 . M 


59. 00 


'596.00 


flfi. 00 


62. 00 


596.00 


89.00 


60. 00 


395.00 


90. 00 


61.00 


692.00 


89.00 


59.00 


638. 00 


81.00 


57.00 


706.00 


86.00 


50. 00 


707.00 


79.00 


46.00 


690.00 


90.00 


54. 00 


685.00 


89.00 


55. 00 


630.00 


91.00 


54.00 


643. 00 


91.00 


60.00 


515.00 


. 97.00 


65. 00 


532.00 


94.00 


65. 00 


396. 00 


93.00 


62. 00 


493. 00 


92.00 


69. 00 


515.00 


90.00 


65. 00 


623, 00 


90.00 


68. 00 


410. 00 


92.00 


68. 00 


301.00 


91.00 


69.00 


396. 00 


92.00 


66.00 


352.00 


89.00 


70. 00 


656. 00 


90.00 


70.00 


648. 00 


91.00 


71.00 


652. 00 


89.00 


69. 00 


657. 00 


95.00 


65. 00 


548.00 


91 . 00 


68. 00 


326. 00 


92.00 


61. 00 


301.00 


90. 00 


62.00 


545.00 


92.00 


71.00 


241.00 


R9. 00 


68. 00 


584.00 


93.00 


72.00 


607.00 


94.00 


73.00 


554.00 


93.00 


75.00 


215.00 


90.00 


70.00 


370.00 


94.00 


68.00 


602. 00 


92,00 


68. 00 


635.00 


93. 00 


73.00 


260. 00 


93.00 


69.00 


278.00 


89.00 


67.00 


659. 00 


77.00 


67.00 


669. 00 


81.00 


59.00 


692. 00 


85.00 


57.00 


508. 00 


86.00 


55.00 


611.00 


89.00 


59.00 


551.00 


38.00 


65. 00 


614.00 


91.00 


63.00 


630. 00 


92.00 


6b. 00 


568. 00 


85.00 


63.00 


533.00 
461.00 


89.00 
90.00 


67.00 
65.00 


598. 00 


93.00 


70.00 



.10 
.58 



.06 
.80 

.02 



04 

05 
13 

.24 
07 



34 
23 

91 



53 
19 

11 

26 
15 



.61 
.58 



. 06 


119, 00 


.01 


120. 00 


.15 


121. 00 


.20 


122. 00 


.20 


123. 00 


. 06 


124. 00 


.25 


125.00 


.22 


126. 00 


.19 


127. 00 


.18 


128. 00 


.04 


129. 00 


.15 


130.00 


.22 


131.00 


.22 


132. 00 


.19 


133.00 


.09 


134.00 


.19 


135.00 


.28 


136.00 


.28 


137.00 


.27 


138. 00 


.21 


139, 00 


.26 


140.00 


.33 


141.00 


.28 


142.00 


.29 


143.00 


.25 


144.00 


.30 


US. 00 


.27 


146.00 


.33 


147.00 


.25 


148.00 


.29 


149.00 


.24 


150. 00 


.16 


151.00 


.32 


152.00 


.25 


153. 00 


.24 


154.00 


.23 


155.00 


.26 


156.00 


.28 


157.00 


.28 


158.00 


.26 


159.00 


.32 


160.00 


.23 


161.00 


.20 


162.00 


.23 


163.00 


.22 


164.00 


.27 


165.00 


.17 


166. 00 


.11 


167. 00 


.11 


168. 00 


.09 


169.00 


.23 


170.00 


.26 


171.00 


.33 


172.00 


.36 


173.00 


.20 


174.00 


.17 


175.00 


.10 


176.00 


.22 


177.00 


.12 


178.00 


.26 


179.00 


.36 


130. 00 


.29 


131. 00 


.03 


182,00 


.21 


163. 00 


.26 


184.00 


.23 


185.00 


.19 


136.00 


.11 


187.00 


.25 


188.00 


.25 


189.00 


.23 


190.00 


.13 


191,00 


.19 


192.00 


.22 


193.00 


.27 


194.00 


.27 


195.00 


.27 


196.00 


.24 


197.00 


.20 


196.00 



INPUT DATA-Continued 

000128 499.00 68,00 68.00 .S3 .28 199.00 

000129 627.00 90.00 67.00 .45 .20 ii'Lirj. Ou 

000130 663.00 92.00 96. 00 .24 201.00 

000131 601.00 89.00 68. 00 .35 .28 02.00 

000132 490.00 91.00 68.00 .02 .2? o3. 00 

000133 671.00 94.00 66.00 .19 04.00 

000134 547.00 95.00 70.00 -25 205.00 

000135 516.00 94.00 68.00 .02 .22 06.00 

000136 551 . 00 95. 00 72. 00 .27 207. 00 

000137 604.00 93.00 71.00 .27 208.00 

000138 582, 00 93. 00 7?. 00 .50 .29 U9. uO 

000139 561.00 92.00 73.00 .05 .28 210.00 

000140 240.00 85.00 70.00 .30 211.00 

000141 434. 00 34. 00 69. 00 1.74 . 12 212. 00 

000142 519.00 39.00 69.00 ,60 .15 213.00 

000143 609. 00 90.00 66,00 . 05 214. 00 

000144 492.00 91.00 68. 00 .22 215.00 

000145 610,00 93.00 63.00 .25 216.00 

000146 623.00 93.00 70.00 .26 217.00 

000147 626.00 92.00 70. 00 .27 218.00 
QQQ148 646.00 92.00 69.00 .25 219.00 

000149 635.00 35.00 74.00 .34 220.00 

000150 589.00 92.00 74.00 .33 221.00 

000151 556. 00 95. 00 73. 00 .27 22. 00 

000152 461 . 00 93. 00 68. 00 .30 23. 00 

000153 441.00 96.00 67.00 ,19 24.00 

000154 370. 00 94. 00 66. 00 .23 225. 00 

000155 356.00 91.00 68.00 .09 .18 26.00 

000156 532.00 93.00 68.00 .15 27.00 

000157 550.00 89.00 68. 00 .25 .24 228.00 

000158 4SO.DQ 32.00 67. 00 .27 229.00 

000159 521,00 93.00 68.00 .24 230.00 

000160 504.00 92.00 68.00 .25 231.00 

000161 566. 00 96. 00 69. 00 .24 32. 00 

000162 498. 00 98. 00 70. 00 .24 233. 00 

000163 412.00 99.00 73.00 .23 234.00 

000164 433.00 97.00 77.00 .28 235.00 

000165 509.00 95.00 68.00 .33 36.00 

000166 259. 00 96. 00 68. 00 .21 237. 00 

000167 402.00 34.00 68.00 .41 .22 38.00 
000163 319. 00 94. 00 69. fiG . fi5 . 13 39. rifl 

000169 586. 00 93. 00 68. 00 .16 240. 00 

000170 584.00 89.00 6i.OO .27 241.00 

000171 551.00 91.00 62.00 .25 242.00 

000172 520.00 32.00 61.00 .22 243.00 

000173 460.00 95.00 63.00 .23 244.00 

000174 385.00 92.00 69.00 .19 245.00 

000175 478. 00 95. 00 67. 00 .03 . 19 246. 00 

000176 435.00 96.00 65.00 .18 247.00 

000177 270.00 96.00 67.00 .24 248.00 

000178 26.OQ 30,00 70.00 .13 249.00 

000179 514. 00 93. 00 63. CO . 12 250. 00 

000180 472. 00 96. 00 73. 00 . 19 251 . 00 

000181 522.00 98.00 72.00 .22 252.00 

000182 495.00 95.00 73.00 .24 53.00 

000183 539.00 95.00 68.00' .30 254.00 

000184 401.00 91.00 69.00 .21 255.00 

000185 485. 00 96. 00 72. 00 . 15 256. 00 

000186 514. 00 96, 00 61 . 00 .20 257. 00 

000187 530. 00 37, 00 65. 00 .30 258. 00 

000188 503. 00 99. 00 64. 00 .26 59. 00 

000189 286. 00 94. 00 67. 00 .24 260. 00 

000190 365. 00 96. 00 66. 00 1 . 43 . 12 261 . 00 

000191 518.00 96.00 69.00 .02 .15 262.00 

000192 483. 00 94. 00 70. CO .23 263. 00 
000153 478. 00 95. 00 67. 00 .44 .21 264. 00 

000194 399.00 91.00 66.00 .20 265.00 

000195 200.00 90.00 68.00 1.31 .16 266.00 

000196 355.00 91.00 68.00 .62 .05 267.00 

000197 238.00 90.00 66,00 .13 68.00 
00019S 162.00 38.00 72.00 .13 269.00 

000199 361.00 87.00 67,00 .08 70.00 

000200 343.00 88.00 70.00 .45 .1? 71.00 

000201 365.00 89.00 70.00 .29 .IS 272.00 

000202 387. 00 87. 00 69. 00 1.22 . 12 73. 00 

000203 544. 00 73. 00 57, 00 .34 74. 00 

000204 528.00 72.00 41.00 .19 75.00 
00005 518. 00 78. 00 43. 00 . 15 276, 00 

000206 458.00 78.00 54.00 .17 277.00 

000207 409.00 88.00 65.00 .0:5 .14 73.00 

000208 410. 00 97. 00 65, 00 . 17 79. 00 
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INPUT DATA-Contmued 



000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
00023d 



000235 

000236 

000237 

QOQ23B 

000239 

000240 

000241 

000242 

000243; 

000244 

000245 

000246 

000247 

000248 

D00249 

000250 

000251 

000252 

000253 

000254 

000255 

000256 

000257 

000258 

000259 

000260 

000261 

000262 

000263 



NEW 



355.00 

391.00 
385.00 
395.00 
400.00 
432.00 
409.00 
361.00 
416.00 
339. Ofi 
402. 00 
393.00 


85. CiQ 58.00 
76.00 64.00 
78.00 52.00 
81.00 52.00 
87.00 51.00 
86.00 55.00 
86.00 55.00 
89.00 58.00 
90.00 59,00 
81. Oij 66.00 
36. Ofl 53.00 
90.00 67.00 




.17 
.17 
.09 
. 12 
.12 
.17 
.14 
.14 
.14 
.17 
.15 
.15 


280.00 
281.00 
282.00 
283.00 
284/00 
285.00 
286.00 
287.00 
288.00 
2S9.00 
290.00 
291. 00 




351.00 


89.00 67. OCi 




.16 


292. 00 




104.00 


73,00 50. 00 


.13 


.26 


233. 00 




376.00 


70.00 37.00 


.03 


.05 


294.00 




271.00 


75.00 51.00 




.08 


295.00 




43.00 


78.00 61. 00 




.07 


296. 00 




346 . 


79.00 65.00 


1.75 


.11 


297.00 




141.00 


67.00 52. 00 


. 02 


.15 


298. 00 




81.00 


60.00 39.00 




.11 


299.00 




34.00 


57.00 38.00 




.03 


300.00 




262 . 


65.0CI 52.00 


,55 


.07 


301.00 




84.00 


69.00 48.00 




.02 


302.00 




71.00 


73.00 52.00 




.03 


303. 00 




72.00 


32.00 54.00 




.08 


304. 00 




172.00 


86.00 66.00 




.00 


305. 00 




-2304 


-2242 


-2213 






-2137 


-2054 


-2005 


-1909 






-1808 -1719 




-1610 


-1455 




-1337 


-1215 




-1050 


- 923 




- 753 


- 62t 




- 448 


- 3-4 




- 139 


- 005 




130 


304 




414 


546 




71? 


846 




1012 


1135 




.1256 


1413 1450 






1602 


1709 


1811 


1909 






2002 


2049 


2130 


2157 




2228 


2252 




2310 


2322 




2327 


2325 




2317 2310 




2252 




2228 


2157 


2121 




2038 




1950 


1857 


1814 


1712 






1606 


1455 


1341 


1223 






,1102 


936 


835 


707 




537 


406 




234 


101 




- 032 


- 206 


- 253 


- 426 




- 538 




- 729 


- 85S 


-1025 




-1150 




-1312 


-1411 


-1527 


-1638 






-1745 


-1848 


-1945 


-2036 






-2121 -2141 




-2216 


-2245 




-2306 


-2320 




-2326 


-2325 




-2317 




.5 .0 


,0 .0 ,0 2.5 


.2 .0 .0 


.0 


5.0 2.0 


.5 .0 .0 


6.8 4.0 


2.2 1.0 .5 7.7 


5.6 4.0 2.7 


2.0 


9.7 7.2 


6.0 5.0 4.5 


9.0 S.5 


7.2 6.5 6.0 










34 


170 1.69 


125 


101.6 


1.35 


1.0 41000. 


1.0 


0.60 20. '0 


30.0 








10 


10 
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OUTPUT DATA 



GXGT CLJCQT\S COPIAH COUNTY, MISS. ^972 

.b88!" 



1f> 
f 



,,-T^r. ft 

tfeTRES= 

STRESS .0 SOLAR RAD 663. PLANT WT 



1.17 



LEAF UT 



L&I? 

1713 MAIHSTEM NODES 



(t SQUARES tt GREEN 



r 

S # SITES 



loNCENTRATIONS .0420 .,0000 .0000 .0180 . 0200 NSTRES- 
MPART<l-5> .0835 . UU01 .OOul .0^39 . LT042 

rw.v~ -7ft ru?n QTPPQ^ n H?0 STRESS 1.0 SOLAR RAD 690. PLANT WT 4.04 
SQUARES LOST BOLLS LOST i LAI 26 PHYSIOL. DAYS BLOOMS LOST 
LEAF WT 27ll MftlNSTEM NODES 8 SQUARES # GREEN BOLLS tt SITES 



HSTRES= 



LEAF WT 



. L .i 

HAIHSTEM NODES S SQUARES # GREEN BOLLS # SITES 



^CONCENTRATIONS .0420 .0000 .0000 .0171 . 0190 NSTRES* 
NPARTO-5) .2338 .0001 .OOfli .Ily9 .Ul6 
X X 

I I 

=0=i>0=0=0=0= 0^=0=0= 
I 

DAY 50 CH20 STRESS H20 STRESS .0 SOLAR RAD 301. PLANT WT 14.04 



x 
i 

==0=0=0=* 

VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 

CONCENTRATIONS .0399 .0000 .0000 .0147 .0117 HSTRES0 
HPARTU-5> .4364 . 0001 . 0001 . 1737 . 0122 

X X 

n ? ? 

==0=0=0=0=0=0=0=0=0-0=0=0=0= 
I I I 

XXX 

I I 

DAY SO PH20 STRESS X H20 STRESS .5 SOLAR RAD 260. PLANT UT , 22.15 
SQUARES LOST BOLLS LOST LAI 1.49 PHYSIOL. DAYS 47 BLOOMS LOST 
LEAF WT 12 23 MAIN8TEM NODES 13 # SQUARES IS * GREEN BOLLS SITES .16 



VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 
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OUTPUT DATA-Confinued 



CONCENTRATIONS . 0318 . 


,0000 . 


0000 


-IPARTa-5> 


. 6752 


0001 


0001 




X 




X 




















I 




r 




















X 




ft* 




X 




X 












I 




i 




I 




I 












X 




X 




X 




X 


X 










I 




i 




I 




I 


I 








=0=0=0=0=0= 


=0=0=0=0=0- 


.0=0=0=0=0=0= 






I 




i 




I 




I 


I 










w 




X 




X 




X 


x 










I 




I 




I 
















X 




X 




X 













.01U 

..364 



. 0037 NSTRES- i 
.0119 



I 

DAY 70 CH20 STRESS H2Q STRESS .5 SOLAR RAD 565. PLANT UT 37.72 
SQUARES LOST BOLLS LOST LAI .53 PHYSIQL. DAYS 55 BLOOMS LOST 
LEAF UT 21.20 MAINSTB1 NODES 16 tt SQUARES 29 # GREEN BOLLS tt SITES 30 

X 
I 
X X X X 

I I I I 

==0=0=0^0=0=0=0=0=0=0= 

I I I I 

X X X X 

I 


VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 



CONCENTRATIONS 


0262 . 


0077 




, 


0072 


.001 


HP ART < 1-5) 


. 7525 


, 0077 


0009 .27! 




X 




X 




















I 




I 




















){ 




X 




X 
















I 




I 




I 
















X 




X 




X 




X 


X 










I 




I 




I 




I 


I 










* 








X 




X 


X 




X 


X 




I 




I 




I 




I 


I 




I 


I 


==0=0=0=0=0=0=0=0=0=0=0=0=0=0=0= 


0=0=0=0=0= 






I 




I 




I 


I 




I 


I 


I 






* 




X 




X 


X 




X 


X 


X 






I 




I 




I 


I 




I 










w 




X 




X 


X 




X 










I 




I 




I 
















X 




X 




X 
















I 
























X 





















.0077 NSTRES= 2 
. 0106 



DAY 80 CH20 STRESS 2 , H2Q STRESS 
SQUARES LOST BOLLS LOST LAI 



SOLAR RAD 547. PLANT WT , 54.69 ft 
PHYSIOL. BAYS 65 BLOOMS LOST 



LEAF UT 23774 MAINSTEM NODES 20 ft SQUARES 44 # GREEN BOLLS 4 # SITES 52 



==0=0=0=0=0=0=0=0=0=0=0=0=0=0= 



VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 



CONCENTRATIONS .0210 .0781 .0061 .0063 .0079 NSTRES* 2 

l_g> .6925 .0781 .0080 .2792 .0106 

X X 
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OUTPUT DATA-Continued 



I 

* 

I 


I 



I 


X 

I 




















X 






I 


I 


I 


I 


I 






* 


* 


* 


* 





X 


X 


I 


I 


I 


I 


I 


I 


I 



==0=0=0=0=0=0=0=0^-0=0=0=0=0=0=0=0=0=0=0=0= 
I I I I I I I 

* * X X 

I I I I I 

* * X X 

i r i 

X X 

I 

X 

DAY 90 CH20 STRESS 3 H20 STRESS .0 SOLAR RAD 492. PLANT UT 67.50 
SQUARES LOST BOLLS LOST LAI 4.00 PHYSIOL. DAYS 75^ BLOOMS LOST 




I 

0X0 

I I I 

* * * X X 

I I I I I I 

==0=0=0=0=0=0=0=0=0=0=0=0=0=0= 

i i i r i i 

* X X 

I I 



I 

X 
VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 

CONCENTRATIONS .0186 .113? .0037 .0051 .0075 NSTRE3- 4 

.0105 



NPARTC1-5) 


6812 


.1 


137 






.0110 .2696 
























I 




I 
















* 






















I 




I 




I 












4< 
























I 




I 




I 




I 




I 




* 




* 


















I 




I 




I 




I 




I 


I I 


.sQKQsQsO =0-0-0= 


r 





"i" 


s o 


"i 


=o 


I 


=0 


"r "r ~r 




* 




* 














000 




I 




I 




I 




I 




r 




* 




* 



















I 




I 




I 


































J 



DAY 100 CH20 STRESS 2 H20 STRESS .5 SOLAR RAD 370. PLANT WT 74. 70 
SQUARES LOST BOLLS LOST LAI 4.44 PHYSIOL. DAYS 64 BLOOMS LOST 
LEAF WT 36.54 MAINSTEM NODES 20 # SQUARES GREEN BOLLS 15 # SITES 52 



I 

000 

I I I 

* * * 

i i i i i r 
==o=o=o=o=o=o=oo=o=o=o=o=o=o= 
i r. i i i i 

* 

I I 



I 

VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 



OUTPUT DATA-Continued 



CONCENTRATIONS 


.0175 


.1053 


.0017 


. 0043 


NPARTC1-5) 




,6851 


. 


1 053 


0093 


.2694 




















I 


I 





























I 


I 


I 










* 

















I 


I 


I 


I I 








* 


* 








n 







I 


I 


I 


I I 


I 


I 



0070 NSTRES= 
.0105 



==0=0=0=0=0=0=0=0=0=0=0=0=0=0-0=0=0=0=0=0= 











I 


I 


I 


I 


I 




I 


I 










* 


* 



























I 


I 


I 


I 


I 



















ID 

























I 


I 


I 















































I 









































DAY 


110 


CH20 


STRESS 


1 


H20 


STRESS 


2. 


2 i 


SQUARES 


LOS 


T 


BOLLS 


LOST 


LAI 


4. 


75 1 


LEAF 


WT 


39. 


07 


MAINS 


TEM 


NODES 


20 


ft 


SQUARES 



SOLAR RAD 439. PLANT UT 3.58 
PHYSIOL. DAYS 94 BLOOMS LOST 
ft GREEN BOLLS 7 # SITES 52 





I 


I 

* 

I 


I 

* 

I 



I 






I 



I 


I 



I 






I 

.0 

_!___ I _I I 

i ~r "r ~r 

0000 



VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 



CONCENTRATIONS 



.0167 .1195 -.0015 .0037 .0067 NSTRES= 4 



NPARTO-5) 



.6896 .1195 ,0113' .2663 





I 



I 

* 

I 

* 

I 




I 



I 



I 

# 

I 




I 



I 



I 





I 





I 




I 




. I 



.0108 



==0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0= 











I I 


I 


I 


I 




I 




I 










:(: * 





























I I 


I 


I 


I 


















0. 



























1 I 


I 
















































I 









































DAY 


120 


CH20 


STRESS 2 


H20 


STRESS . 


5 


1 


SQUARES 


LOST 


BOLLS 


LOST 


LAI 


5. 


01 


i 


LEAF 


WT 


41 


.20 


MAINSTEM 


NODE 


i->. 

3 


20 


ft 


SQUARES 



SOLAR RAD 385. PLANT UT 91.90 
PHYSIOL. DAYS 103 BLOOMS LOST 
ft GREEN BOLLS 7 ft SITES 52 



==0=0=0=0=0=0=0=0=0=0=0=0=0=0= 

I I I I I I 

* 

I I 





VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 
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OUTPUT DATA-Continued 

CONCENTRATIONS .0165 .1344 .0016 .0032 .0063 NSTRES= 3 
NPARK1-5) .6923 . 1344 . 0133 .2643 . 01 OS 



IS . 


0165 


.1344 


.0016 


. 0032 


.6923 . 


1344 


u 


0133 


.2643 















I I 


























I I 


I 










* o 















I I 


I 


I 


I 






# * 

















I I 


I 


I 


I 


I 


I 



==0=0*0=0=0=0=0=0=0=0=0=0=0=0=0=0^0=0=0=0= 
3 I I I I I I 
# * 

I I I I I 

00000 

I I I 

000 

I 



DAY 130 CH20 STRESS 1 H20 STRESS .5 SOLAR RAD 401. PLANT UT 96.72 
SQUARES LOST BOLLS LOST LAI 5.12 PHYSIOL. DAYS 112 BLOOMS LOST 
LEAF UT 42.08 MAIHSTEM NODES 20 SQUARES # GREEN BOLLS 5 tt SITES 52 


I 
000 

I I I 

* 

I I I I I I 

==0=0=0=0=0=0=0=0=0=0=0=0=0=0= 

i i i r I r 

* 

I I 




VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 

CONCENTRATIONS .0177 .1374 .0017 .0028 .0059 HSTRES= 1 
NPART< 1-5) , 6948 . 1374 - . 0140 . 730 . 01 05 



1 I 
000 

I I I 

#0000 

I I I I I 

ft tt 
==0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0= 

I I I I I I I 

It ft 

I I I I I 

00000 

I I I 

000 

I 



SffiAJtfS . ti 20 STRESS H20 STRESS .0 SOLAR RAD 399. PLANT UT 98.82 
SQUARES LOST BOLLS LOST LAI 4.77 PHYSIOL. DAYS 121 BLOOMS LOST 
LEAF WT 39.21 MAINSTEM NODES 20 # SQUARES * GREEN BOLLS # SITES 52 



I 
000 

I I I 

#00000 

I I I I I I 

==0*0=0=0=0=0=0=0=0=0=0=0-0-0= 
I I I I I I 

tt 


I 


VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 
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OUTPUT DATA-Contlnued 



CONCENTRATIONS . 0199 . 1374 . 0019 . 0021 
NPARTO-5) .7034 .1374 .0155 .2238 



0052 NSTRES- 
.0095 



I 




I 







































I 




I 




I 












# 
























I 




I 




I 




I 




I 




ft 




ft 

















X 


I 




I 


-n 


I 




I 




I 


I I I 




~I 


~ 


~r 


~ 


-J- 


_ 


I 


-0 


~r "r ~?~~ 




tt 




# 














000 




I 




i 




I 




I 




I 





























I 




I 




I 

















o 

















I 








































DAY 150 CH20 STRESS H20 STRESS . SOLAR RAD 523. PLANT UT <53 29 
SQUARES LOST BOLLS LOST LAI 4.29 PHYSIOL. DAYS 30 BLOOMS LOST 
LEAF WT 35.23 MAINSTEM NODES 21 tt SQUARES 1 * GREEN BOLLS # SITES 53 



==0=0=0=0=0=0=0=0=0=0=0=0=0=0= 

I I I I I I 

# 



VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 



CONCENTRATIONS . 0193 . 1374 . 0020 . 0018 

NPART<l-5) .7204 .1374 .0161 .2092 





.0048 NSTRES= 1 
. 0091 



I 




I 











































I 




I 




I 














ft 


























I 




I 




I 




I 




i 






ft 




ft 

















X 


X 


I_ 




I 




I 


_ 


I 




I 


I_ _I_ _I_ 


_I 




I 




"i 


- 


~I 


_ 


I 




~r "j" ~r "i 


IsiQi 




ft 




$ 














X 






I 




I 




I 




r 




I 

































I 




I 




I 







































I 












































DAY 160 CH2G STRESS H20 STRESS .0 SOLAR RAD 432. PLANT UT 94.87 
SQUARES LOST BOLLS LOST LAI 4.54 PHYSIOL. DAYS 136 BLOOMS LOST 
LEAF WT 37.31 MAINSTEtl NODES 23 tt SQUARES 3 ft GREEN BOLLS ft SITES 55 





I 



tt 
I 


"i 

ft 



I 







I 


I 



I 





000 

I I I 
" "i" "i" "i" 

000 


o-o 
11 
oo 

!! 



VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 
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OUTPUT DATA-Continued 



CONCENTRATIONS . 0196 . 1374 . 0021 . 0014 
NPARTO-5) .7409 .1374 .0170 .1743 
j 



.0049 NSTRES= 
. 0095 



I 



I 



I 

# 
I 

It 
I 




I 



I 



I 
ft 
I 


X 

I 



I 



I 



I 


X 

I 



I 



I 




I 



I 


X 

I 



I I 


X 

I 

X X 

I I 


X 

I 



==0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0= 



I 


I 


I 


I 


I 


I 


I 


if 


# 

















I 


I 


I 


I 


I 


I 



















A 




I 


I 


I 


I 











fl 





x 








I 


I 












n 


X 













DAY 170 CH20 STRESS H20 STRESS .0 
SQUARES LOST BOLLS LOST LAI 4.60 



SOLAR RAD 271. PLANT WT 94.04 
PHYSIOL. DAYS 142 BLOOMS LOST 



LEAF WT 37.80 MAINSTEM NODES 25 tt SQUARES 14 tt GREEN BOLLS # SITES 66 




I 

000 

III 

#00000 

I I I I I I 

==0=0=0=0=0=0=0=0=0=0=0=0=0=0= 

I I I I I I 

# 

I I 



I 


VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 

YIELD/ACRE 1.679 EMERGENCE DATE 125. GROUINGDAYS 172 LATITUDE 34.0 
tt OF GREEN BOLLS tt OF OPEN BOLLS 7 SOIL H20 CAPACITY 1.69 
H20 RUN OFF .48 ROW SPACING 101.6 # OF PLANTS/ACRE 41000. 



@BRKPT PRINT* 



Insect Damage Experiment 

The second way in which SIMCOT II can be 
used is to directly simulate insect damage by re- 
moval (changing the fruiting code) of appropri- 
ate fruit. Again the same data file is used with 
the exception of the last card. This program fea- 
ture was designed to be used on an on-line inter- 
active basis with a demand or time-share term- 
inal but can be used also with card input in the 
batch mode. 

INPUT DATA 

SIMCOT II data file, with emphasis on the 
last card as follows: 

JJB LAST JB - Variables 

12845678901234567890 *- Column count 

75 1 - The data 

In this example, we will simulate bollworm 



damage in which two squares and three bolls are 
damaged by bollworms. 

Step 1. Execute program and add data file. 
Step 2, Program stops on the 75th day and 
asks how many fruit are abscised on day 75. 
Input: 12345 +- Column count 

1 *- Data 
Which fruit? 

Input: 123456789012345 <- Column count 

10 2 4 <- Data 

The fruit at the tenth main-stem node and first 
fruiting-branch node is assigned a 4, which is 
the code for a scar. The reason a 2 is used to indi- 
cate the first fruiting-branch node is that the 1 
fruiting-branch node is where the fruiting 
branch is attached to the main stem. The fruit 
code is as follows: 1 is a square, 2 is a green boll, 



76 



3 is a mature boll, and 4 is a scar. On a printout 
these codes appear as X, *, #, and 0, respectively. 
Next the program asks if any fruit on the 
vegetative branch will be abscised. 

Input: 12345 *- Column count 

- Data 

Do you want the plant printed out in graphic 
form ? 

Input: 12345 *- Column count 

1 <- Data (for "no") 
<- Data (for "yes") 

Are there any more data after today? (Are 
you manually going to abscise any more fruit?) 
Input: 12345 <- Column count 

*- Data (program proceeds 

normally) 

1 - Data (program will ask 

for more abscission 
data) 

What is the next output clay (day on which 
more damage will be inflicted or is of special in- 
terest to user) ? 

Input: JJB +- Variable 

12345 - Column count 

80 <- Data 

Step 3.- Abscise square on day 80 on the vege- 
tative branch with the following set of cards: 
12345678901234567890 

*- No abscission on 

main stem 

1 *- Number abscised 

on vegetative 
branch 

524 *- Location on 

vegetative 
branch and fruit 
code 

+- Print plant 

1 *~ More data 

85 +- Next output clay 



Step 4. Abscise boll on main stem on day 85 
with the following set of cards: 

12345678901234567890 
1 

924 


1 
90 

Step 5. Abscise boll on main stem on day 90 
with the following set of cards: 

12345678901234567890 
1 

824 


1 
95 

Step G. Abscise boll on the main stem on day 
95 with the following set of cards: 

12345678901234567890 
1 

724 


1 
165 

Step 7, Print out plants on desired clay (in 
this case on clay 105 near the end of the season) , 

12345678901234567890 





The program with the data file as above and 
the data outlined in the above example will grow 
a cotton plant which will lose two squares and 
three bolls due to insect damage. The program 
output with the mentioned data now follows. 
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OUTPUT DATA 

@XQT CLMCQT.S 

WEATHER FOR COPIAH COUNTY. MISS. ,1972 

CONCENTRATIONS .0298 .0006 .0216 .0103 .0078 NSTRES= 
NPARTC1-5) .7525 .0006 .0002 .2781 .0106 
HOW MAHV FRUIT ON MAIN BRANCH WILL BE ABSCISED OH DAY 75? 

WHICH FRUIT ON MAIN BRANCH WILL BE ABSCISED OH DAY 75? 

10 2 4 
HOW MANY FRUIT ON VEG. BRANCH WILL BE ABSCISED OH DAY 75 ? 


DO YOU WANT PLANT PRINTED OUT ON DAY 75? 


IS THERE ANY MORE DATA AFTER DAY 75? 

i 



X 

I 

X 

X 
I 

I 


X 

I 

X 

I 

X 

I 


X 

I 

X 

I 

X 

I 


X 

I 

X 

I 


X 

I 

X 

I 


X 

I 



==0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0= 

I I I I I I 

X X X X X X 

I I I I 

X X X X 

I I 

X X 

28L,J5 . <? STRESS 1 H20 STRESS .0 SOLAR RAD 627. PLANT UT 46.32 
SQUARES LOST 0, BOLLS LOST LAI 3.07 PHYSIOL. DAYS 60 BLOOMS LOST 
LEAF UT 25.22 MAINSTEM NODES 18 ft SQUARES 36 ft GREEN BOLLS 1 ft SITES 42 

6 

i 

X X 

I I 

X X X X X 

I I I I I 

==0=0=0=0=0=0=0=0=0=0=0=0= 

I I I I I 

X X X X X 

I I 


VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 

THIS IS DAY 75 WHAT IS THE NEXT OUTPUT DAY? 
80 



.0082 .0077 HSTRES= 2 

" * * -" WK--T v vt w jj <__/ t r 92 01 Go 
HOW MANY FRUIT ON MAIN BRANCH WILL BE .ABSCISED ON DAY 80? 

HOW MANY FRUIT ON VEG. BRANCH WILL BE ABSCISED ON DAY 80 ? 
WHICH FRUIT ON VEG. BRANCH WILL BE ABSCISED ON DAY 80? 

DO YOU WANT PLANT PRINTED OUT ON DAY 80? 


IS THERE ANY MORE DATA AFTER DAY 80? 

X X 

I I 

XXX 

I I I 

X X X X X 

I I I I I 

* * X X X X X 

==0=0=0=0=0=0=0=0=0=0=0=0^=0=0=0=0=0=0=0=0= 

I I I I I I I 

J X X X X X 

X X X X X 

I I I 

X X X 

u 

J2,^ F fe ESS2 H20 STRESS, .5 SOLAR RAD. 547. PLANT UT 54.75 
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OUTPUT DATA-Contlnued 



==0=0=0=0=0=0=0=0=0=0=0=0=0=0= 

I I I I I I 



X X 



VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 



THIS IS DAY 80 WHAT IS THE NEXT OUTPUT DAY? 

85 

CONCENTRATIONS .0234 .0304 .0063 ,0069 .007? HSTRES= 
NPART<l-5) .7361 .0304 .0032 .2792 .0106 

HOW MANY FRUIT ON MAIN BRANCH WILL BE ABSCISED ON DAY 35? 

WHICH FRUIT ON MAIN BRANCH WILL BE ABSCISED ON DAY 85? 

924 
HOW MANY FRUIT ON VEG. BRANCH WILL BE ABSCISED OH DAY 85 ? 


DO YOU WANT PLANT PRINTED OUT ON DAY 85? 


IS THERE ANY MORE DATA AFTER DAY 35? 

1 

X 



r 

X 

r 

i 
** 
i 


i 
i 

X 

i 
* 
i 


X 

I 



I 

* 
I 


X 

I 

X 

I 


X 

I 

X 

I 


X 

I 


X 

I 



==0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0= 



DAY 85 CH2Q STRESS 2 H20 STRESS . .5 SOLAR RAD 561. PLANT WT 62,74 
SQUARES LOST 2 BOLLS LOST LAI 3.82 FHYSIOL. DAYS' 70 BLOOMS LOST 
LEAF WT 31.44 MAIHSTEM NODES 20 tt SQUARES 33 GREEN BOLLS 8 tt SITES 52 



==0=0=0=0=0=0=0=0=0=0=0=0=0=0= 
I I I I I I 
* X X X X 



VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 



THIS IS DAY 85 WHAT IS THE NEXT OUTPUT DAY? 

90 

CONCENTRATIONS .0213 .0659 .0062 .0062 .0073 NSTRES= 2 
NPARTC 1-5) .7076 , 0659 . 0063 . 2777 . 01 04 
HOW MANY FRUIT OH MAIN BRANCH WILL BE ABSCISED ON DAY 90? 

1 
UHICH FRUIT ON MAIN BRANCH WILL BE ABSCISED OH DAY 90? 

624 
HOW MANY FRUIT ON VEG. BRANCH WILL BE ABSCISED OH DAY 90 ? 


DO YOU WANT PLANT PRINTED OUT OH DAY 90? 


IS THERE ANY MORE DATA AFTER DAY 90? 

X X 
I I 

* X 

I I I 

* * X 

I I I I I 

* * * X X 
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OUTPUT DATA-Contlnued 

I I I I I I I 

==0=0=0=0=0=0=0=0=0=0=0=0=0=0=0-0=0=0=0=0= 

I I I I I I I 

* X X 

I I I I I 

* * X X 

I I I 

X X 

I 

X 

DAY 90 CH20 STRESS 2 H20 STRESS .0 SOLAR RAD 492. PLANT WT 67.95 
SQUARES LOST BOLLS LOST LAI 4. 04 PHYSIOL. DAYS 75 BLOOMS LOST 
LEAF WT 33.25 MAINSTEM NODES 20 # SQUARES 19 ft GREEN BOLLS 12 ft SITES 52 


I 

0X0 

I I I 

* * X X 

I I I I I I 
==0=0=0=0=0=0=0=0=0=0=0=0=0=0= 
I I I I I I 

* X X 

I I 



I 

X 
VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 

THIS IS DAY 90 WHAT IS THE NEXT OUTPUT DAY? 
95 

CONCENTRATIONS .0196 . OS9G .0049 .0056 .0076 NSTRES= 4 

HPART< 1-5) . 6683 . 0896 . 0091 . 2779 . 01 04 
HOU MANY FRUIT OH MAIN BRANCH WILL BE ABSCISED ON DAY 95? 

WHICH FRUIT ON MAIN. BRANCH WILL BE ABSCISED ON DAY 95? 

724 
HOU MANY FRUIT OH VEG, BRANCH WILL BE ABSCISED ON DAY 95 ? 


DO YOU WANT PLANT PRINTED OUT ON DAY 95? 


IS THERE ANY MORE DATA AFTER DAY 95? 

1 






X 












I 


I 












* 
















I 


I 


I 










* 


* 















I 


I 


I 


I 


I 






* 





* 


* 











I 


I 


I 


I 


I 


I 


I 



==0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0= 







I I 


I 


I I 


I I 



























X 


















I I 


I 


I I 




















* # 


























I I 


I 
















































I 













































DAY 95 


CH20 


STRESS 1 


H20 


STRESS 


2.0 


SOLAR RAD 


635. PLANT 


WT 


72. 


22 


SQUARES 


LOST 


BOLLS 


LOST 


LAI 


4.28 


PHYSIOL. 


DAYS 


80 BLOOMS 


LOST 





LEAF UT 


35.20 


MAINSTEM 


NODES 20 ft 


SQUARES 


4 ft GREEN 


BOLLS 11 


ft SITES 


52 





I 

000 

I I I 

* * 

I I I I I I 

==0*0-0=0=0=0=0=0=0=0=0=0=0=0- 
I I I I I I 

* X 

I I 



I 

VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 
80 



OUTPUT DATA-Continued 



THIS IS DAY 95 WHAT IS THE NEXT OUTPUT DAY? 
165 

CONCENTRATIONS . 0205 . 0955 . 0015 . 0014 . 0051 NSTRES- I 
NPARTC1-5) .7640 .0955 .0090 .1780 .0099 
HOW MANY FRUIT ON MAIN BRANCH WILL BE ABSCISED ON DAY 165'"' 


HQU MANY FRUIT ON VEG. BRANCH WILL BE ABSCISED ON DAY 165 ? 


DO YOU WANT PLANT PRINTED OUT ON DAY 165? 



IS THERE ANY MORE DATA AFTER DAY 165? 




X 




















I 






























X 












I 




I 




I 



























X 




X 




I 




I 




I 




I 




I 




# 






















X X 


I 




I 




I 




I 




I 


I I 












tt 




n 







X X X 


I 




I 




I 


~r 


I 




I 


I I I I I 


1 


I 


" 


"l 


- 


i 


-0 


I 


I 


r ~r~~r"~r~' 



















fl 





X X 




I 




I 




I 




I 


I 


I 




tt 




















X 




I 




I 




I 




I 























X 








I 




I 





















X 















DAY 165 CH20 STRESS H20 STRESS .0 SOLAR RAD 402. PLANT WT 88.47 
SQUARES LOST BOLLS LOST LAI 4.66 PHYSIOL. DAYS 139 BLOOMS LOST 
LEAF UT 38.29 MAINSTEM NODES 25 tt SQUARES 14 tt GREEN BOLLS tt SITES 66 



=0=0 =0=0=0=0=0 ==0=0=0=0= 



VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 



YIELD/ACRE 1.271 
tt OF GREEN BOLLS 
H20 RUN OFF .48 



EMERGENCE DATE 125. GROUINGDAYS 172 LATITUDE 
# OF OPEN BOLLS 5 SOIL H20 CAPACITY 1.69 
ROW SPACING 101.6 tt OF PLANTS/ACRE 41000. 



34.0 
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By James W, Jones,' Rex P. Cohvick,-' D. F. Wnnjura,' 1 and Elmer B. Hudspeth* 

DESCRIPTION 



HARVSIM simulates harvesting, transport- 
ing, storing, and ginning of cotton from a farm 
in i\ gin community. See figure 5-1. The focus is 
on a particular farm where field sizes, cotton 
maturity rates for each field, and yield of each 
field are descriptions of the crop. The harvest- 
ing and hauling system is specified by the num- 
ber, capacity, and speed of harvesters and the 
number and capacity of trailers available to the 
fanner. The rest of the cotton input to the gin 
from other farms is simulated by random lumped 
harvesting rates derived from past gin records. 
The ginning rate is specified, and an option ex- 
ists for altering the gin schedule. Breakdowns of 
harvesters and the gin are simulated, and idle 
harvester time due to trailer shortages is con- 
sidered. A trailer hauler takes one or t\vo trail- 
ers to and from the gin. 

The operator specifies the date when harvest- 
ing is to start by selecting the percentage of the 
crop open when harvesting is to start. Rainfall 
is an input to the model, and depending on the 
amount of rainfall, harvesting is stopped for 0, 
1, 2, 3, or 4 days with certain probabilities. Daily 
trailer arrivals from the entire gin community 
are calculated and include arrivals from the farm 
under study. The system status is updated every 



0.1 hour. Harvesting is simulated for each harv- 
ester, each harvester having been assigned to a 
field, and a trailer is assigned to each harvester 
for filling. Harvester breakdown and repair 
times are simulated. Harvesting continues until 
all fields are harvested once unless a trailer 
shortage prevents the harvester from unloading. 
Farm management determines whether to harv- 
est each field twice and specifies a value (in 
bales per acre remaining in the field) below 
which the field will not be harvested a second 
time, 

A hauler transports one or two full trailers to 
the gin and returns trailers to the farm. When 
trailers from the farm arrive at the gin, they 
are placed in a first-come, first-served queue. A 
daily operating- schedule for the gin is selected, 
based on gin backlog. Breakdowns and repair 
times for gin equipment are simulated, An eco- 
nomic analysis calculates costs for harvesting, 
transporting, and ginning. 

HARVSIM was validated with 1-year data 
from the Texas High Plains, The simulated and 
observed harvesting rates and trailer require- 
ments compared well for the two farms that 
were monitored. 



LIMITATIONS 



HARVSIM was intended for comparing cur- 
rent methods of handling seed cotton with alter- 
nate methods that include seed-cotton storage 
prior to ginning 1 . The model depicts the current 
trailer method and focuses on an individual 
farm, but with estimates of harvested cotton 



1 Agricultural engineer, Southern Region, Agricul- 
tural Research Service, U.S. Department of Agriculture, 
P.O. Box 5465, Mississippi State, Miss. 39762. 

2 Research louder, Cotton Production Research, South- 
ern Region, Agricultural Research Service, U.S. Depart- 
ment of Agriculture, P.O. Box 5465, Mississippi State, 
Miss. 39702. 



from the rest of the gin community. A second 
model was developed (HARSTOR) to simulate 
storage of seed cotton on all farms in a gin com- 
munity and will be reported later. 

HARVSIM is limited to studying individual 
farm harvesting decisions and the effects of 
these decisions on costs, harvester idle time, 



3 Agricultural engineer, Southern Region, Agricul- 
tural Research Service, U.S. Department of Agriculture, 
Lubbock, Tex. 78401. 

* Location lender, Southern Region, Agricultural Re- 
search Service, U.S. Department of Agriculture, Lub- 
bock, Tex. 70401. 



labor requirements, etc. Farm decisions through- 
out a gin community can also be studied, but the 
lumped gin input will have to be altered to reflect 
that change. For example, one could study the 
effect of a constant number of trailers owned by 
the gin and used on a first-come, first-served 
basis by changing the community harvesting 
rates to reflect that process. 

The economic analysis for the gin is based to- 
tally on High Plains gin data developed at Texas 



Technological University, Lubbock/ 1 A more de- 
tailed economic analysis of gin costs is needed to 
make the model general. The liarvesting-lwuliiig 
economic analysis is based on American Society 
of Agricultural Engineers cost figures. 

r ' Snndle, W. !>., Smith, M. L., and Fowler, Mark. 1970. 
An industrial engineering study of the operations 
through which cotton passes between the farm and the 
mill. Final report on a Cotton Production Institute Proj- 
ect 68-114. 284 pp. Texas Technological University, Lub- 
bock. 
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FIGURE 5-1 .-Simplified flow chart for HARVSIM. 
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DEFINITION OF TERMS 



ACDELT Acres harvested in one time increment. ICNT 

ACS(K) Number of acres in field K (K = l-50). 

ACST Total acres on farm. IDAL 

AIDT Amount harvested in one time incre- IDAY 

ment. IDL(J) 

AR Bales arriving at gin today from rest 

of gin community. IDT 

ARPH Arrival rate in bales per hour. 

BGND Total bales ginned. IFIELD(K) 

BH Probability of harvester breaking down 

within a time increment. IFK 

BKLG Bales in gin yard not yet ginned. IPLAG(K) 

ELLS Total bales harvested from this farm. 

CCOT Cost per pound of lint. 

CDEP Depreciation cost, harvester. 

CFLBR Cost of farm labor for year. 

CGIN Total gin cost per year. IGFLG 

CGLBR Cost of gin labor for unloading system. IGSTRT 

CHARN Total harvesting cost per year. 

CHAUL Total yearly cost for hauling. 

GHL Cost per mile to operate pickup hauler. IGT 

CINS Insurance cost, harvester. 

CINT Interest cost, harvester, IHARV(J) 

CLBR Cost per hour for labor. 

CLOSF Percentage of cotton loss 30 days after IPIEND 

boll opening. IHLR 

CLUB Lubrication cost per year, harvester. 

COTT(K) Amount of cotton remaining in field K. 

COTTT Total seed cotton on farm. IHSTRT 

CTAX Cost of taxes per year (harvester). 

CTLS Cost per trailer per year. 

CTR Total trailer cost, all trailers. ILAST 

DGIN Daily g'in volume. 

D-LAY Number of days harvesting delayed due 

to rain, IMID 

EPF Efficiency of harvester. 

ENQ Time when hauler is to arrive at gin. 

ENT(JK) Time trailer JK arrives at gin. INOTIM 

FLDFLG(K) Harvest status for field K (0 = not yet IQN(JL) 
harvested ; 1 = harvested once ; 2 = IQUIT 
harvested twice). 

FOX Percentage of gin volume arriving to- IRAIN 

day, excluding farm in question. 

GAMT Amount ginned during one time incre- 

ment. IRDA 

GCPB Ginning cost per bale, from study cited IRTRN 

in footnote 5. ISH(JFK) 

GDT Repair time for gin. 

GINAR Midseason daily average gin arrival rate 

if user wants to specify this. ISTART 

GOP Time gin starts running after break- 

down. ISTRT 

GRTE Ginning capacity in bales per hour. 

GTO Gin turnout in percent. ITACS 

HAMT(J) Pounds of seed cotton in harvester J, JFK 

HARC Purchase price for harvester. JFLAG(J) 

HARTOL Tolerance for simulating when the harv- 

ester dumps the cotton. 

HPH Hours of harvester operation. KTT,IZ 

IARFLG Flag for reading in gin arrival rate 

parameters or simulating (l=read LBH 
in, = simulate). LIFE 



Counts empty trailers in gin yard be- 
longing to this farm. 
Days from first open cotton. 
Day number. 
Total idle time due to trailer shortages 

for harvester J. 

Time counter during day; each incre- 
ment is 10 minutes. 
Harvester number assigned to field K. 

for harvesting. 
Field DO loop counter. 
Trailer status flag: 0=waiting to be 

filled, 1 = being loaded, 2 = trailer full, 

3 in transit to gin, 4 = In gin queue, 

5=empty at gin, and 6= trailer on 

way home. 
Gin operating flag. 

Flag for reading (IGSTRT = 0) or cal- 
culating gin and harvest starting 

dates (IGSTRT = 1). 
Number of time increments the gin op- 
erates today, at 10 minutes each, 
Field number assigned to harvester J 

for harvesting (a pointer),. 
Time of day to stop harvest. 
Trailer hauler status: = on farm, 1 = 

on way to gin, 2=at the gin, 3=on 

way to farm. 
Time of day for starting harvest (0 = 

6:00 a.m., 10=7:00, etc; daily time 

inerement=0.1 hour). 
Number of days required for season to 

"tail off" after arrivals start slowing 

down at end of season. 
Average number of days for arrivals 

occurring at the midseason rate, total 

gin community, 

Number of current harvest, 1 or 2, 
Time that trailer JL is ginned. 
Number of harvesters completed harv- 
esting for the year. 
Flag for rending rain (IRAIN=1) or 

simulating it (IRAIN = 0). (It must 

be equal to 1 in this program.) 
Julian days of rainfall input. 
Time that hauler returns to farm. 
Time when harvester starts harvesting 

after a breakdown (current time plus 

repair time). 
Day when harvest is resumed after a 

rain, 
Number of days required for gin arrival 

rate to reach midseason average, 
Total acres harvested to date. 
Harvester counter, 
Harvester status flag: = harvester can 

dump load into harvester and l=idle 

harvester. 
Number of trailers hauler pulls to gin 

this time, 1 or 2. 
Pounds of seed cotton per bale, 
Years for depreciating harvester. 
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MASTRT 
M ATRTE ( K, 



NA 
NB 



NC 
NDAY 

NFLD 

NGLBR 

NHAUL 
NHVS 

NOFTIM 
NRAIN 
NSGN(K) 
NTH 

NTLS 

NYR 

PSTART 

QO 
R 

RFIN(IRDA) 
RL(K) 

R0 



First day of open cotton. SAVCOT 
I ) Percent of cotton open on day I (I = 1-50 

days after MASTRT for field K (K = SORT 

1-50). SMALY 
Number of days gin arrivals is increas- 

ing in trend ( = ISTRT if read in). 

Number of days before gin receipts show SV 

decline at end of season (=IMID if SYA 

read in). TACRE 

End of gin season { = ILAST if read in) . TAGS (K) 
Number of days charged for ginning, 

Number of fields on the farm, ranked TAMI(K) 

in order of earliness. TCAP 

Number of gin laborers used for unload- TON 

ing system. TCPB 

Number of trips (total) made to gin. TENQ 
Number of harvesters on the farm. 

Number of harvests per field, 1 or 2, TIDT 

Number of days of rainfall to read. TNBLS 

Harvester number assigned to trailer K, TQO 

Total number of days harvesting, includ- TRD 

ing rain days, TTRIP 
Number of trailers on the farm. 

Number of years to be simulated. VEL 
Percentage of bolls open for starting 

harvest. VOL 

Theoretical acres per hour. XMI 

Rainfall on day in question. XO 
Rainfall amounts on day IRDA. 

Row length in field K (K = l~60). X, RNX 

Probability of gin breakdown during YA(K) 

one time increment. YAK 

Time trailer I is scheduled to return to YLO 

farm. YLOS 

INPUT/OUTPUT 



Input 

Card 1: Col. 1-5 NYR (Integer) 

6-10 NHVS (Integer) 
11-15 NTLS (Integer) 
16-20 NFLD (Integer) 
21-25 NOFTIM (Integer) 
26-35 XMI(F10.2) 
36-45 GTO(F10.2) 
46-55 CLBR(F10.2) 
56-65 GRTE(F10.2) 
66-75 SMALY (F10.2) 
If NFLD is 6; 

Cards 2 through 7; 1 card for each field. 
Col. 1-10 ACS(K) (F10.2) 
11-20 YA(K) (F10.2) 
21-30 RL(K) (F10.2) 
Card 8: Col. 1-5 MASTRT (Integer) 

6-15 PSTART (F10.2) 
Card 9 through 24: MATRE(K.I) arranged in 
F4.2 format starting with field 1; 50 values 
are read in for maturity values for each field 
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Temporary variable to store amount of 

cotton remaining' in each field. 
Variation about ginning' rate. 
Lowest yield such that if a field has less 

than SMALY bales per acre in it, then 

it will not be harvested. 
Salvage value of harvester. 
Standard deviation of YAK, 
Actual time required per acre, 
Total acres in field K harvested during 

current harvest. 

Amount of seed cotton in trailer K. 
Trailer capacity. 
Total cotton harvested to date. 
Total cost per bale harvested on farm. 
Total time elapsed when hauler arrives 

at gin. 

Total time increments. 
Total arrivals at gin in bales, 
Theoretical time por acre. 
Time to drive to or from gin. 
Time required for a harvester round 

trip in field. 
Average harvesting velocity in miles per 

hour. 

Gin community volume in bales. 
Miles to the gin. 
Amount held by each harvester in 

pounds. 

Random numbers. 

Yield per aero in field K (K = 1-BO). 
(Dummy) yield that has opened. 
Loss of cotton from a field. 
Total lost cotton, accumulated. 



Card 25: Col. 



Card 26: Col. 



1-10 


CTLS 


(F10.2) 


11-20 


CHL 


(F10.2) 


21-30 


VOL 


(F10.2) 


31-40 


HABC 


(F10.2) 


41-50 


SV 


(F10.2) 


51-55 


LIFE 


(Integer) 


1-10 


TCAP 


(F10.2) 


11-20 


CCOT 


(F10.2) 


21-30 


VEL 


(F10.2) 


31-40 


GINAR 


(FI0.2) 


41-45 


ISTRT 


(Ffi.O) 


51-55 


ILAST 


(F5.0) 


56-60 


IARFLG 


(Integer) 


1-5 


TRAIN 


(Integer) 


6-10 


NRAIN 


(Integer) 



Card 27: Col, 



Card 28: As many cards as needed, only if 
rain is read in. 

Col. 1-5 IRDA (day of rain, 

Integer) 

6-10 RFIN(IRDA) (Ffi.2) 
Repeat as needed on same card 



and on .following cards if 
needed. 

Card 29: Col. 1-10 CLOSF (F10.3) 

11-15 IIISTRT (Integer) 

16-20 IHEND (Integer) 

21-30 HARCAP (F10.3) 

Card 30: Col. 1-5 IGSTRT (Integer) 

6-10 NSG (Integer) 

11-1.5 NGLBR (Integer) 

Output 

1. Number of harvesters, trailers, and dis- 
tance to the gin are printed out. 

2. For each field, the number of acres, yield, 
and row length are printed. 

3. The total cotton to harvest, gin starting 
date, and harvesting starting date. 



4. Daily gin summary including: the number 
of arrivals, bales ginned, backlog, and hours of 
operation. 

5. Breakdowns are printed when they occur 
(gin and harvester). 

6. Every time a harvester or trailer changes 
status, the change is printed out, for example, 
when a harvester is filled and dumped into a' 
trailer, when a trailer returns to the farm, and 
when a trailer is ginned are outputs. 

7. A daily summary is printed for harvest- 
ing and ginning. 

8. At the end of the season, the trailer utili- 
zation is printed for each trailer. The number 
of bales harvested, hours of harvester operation, 
and costs per bale are printed out. 



PROGRAM SETUP AND EXECUTION 



HARVSIM is programed in FORTRAN for a 
UNIVAC 1106 or IBM 370 computer. The card 
reader input unit is 1 and the line printer output 
unit is 3. 

The card deck is arranged in the following se- 
quence for a UNIVAC run: 

A. Control cards 

1. @RUN 

2. @ASG 

3. @FOR 

B. Main program deck 

C. @ FOR card (in front of each subroutine) 

Subroutine (s) 

D. @MAP card 

IN card 



E. @XQT card 



-data- 



F. @FIN card 

The @RUN card specifies account number, 
name of run, and the project qualifier. The 
@ASG card assigns space on disk for storing 
the program for future use. The @FOR cards 
cause the main program and subroutines to be 
compiled with the FORTRAN compiler. The 
@MAP card creates an absolute element in ma- 
chine language with all subroutines linked to- 
gether for the run and for future runs if desir- 
able. The @XQT card causes program execution, 
and @FIN signals the end of the program. 



PROGRAM USTBNG 

ING-HANDLING SIMULATION 

OLAL TULC4) HAMT?I*),F.MT(10> TAMT(30) t RT ( 30 ) f TF < 30 ) , T T ( ^ n ) t R c yM ( 'nO 
1 ) ' ISTRTr IMJO,ILAST 



INTEGER TIUT , 

InTEbER FL[jFLG<50> iTFj 

TLMTIttER I FLAG (30) , I^Nl^n) i ISH(4> NSGM(3n) JFLAR(U) 

-U MANSION ACS (50) YM50)RL<50) COTT(50) , TAGS (SO) 

PuAL*4 MA1KTE<50,50) 

TATA lDL/4*n./tHAMT/4*G./fENT/3n*0./,TA^T/30*n./.RT/in*ri./Tfr/-\n*n 



TIDT/U/JFLAG/<4*0/lFLAG/3n*Q/IOM/30*Q/fPFTN/Uon*n.O/ 
/4*U/.NSGM /30*0/FL(JFLG/5n*0/ 

DATA IHARV/'l + O/f IFlrLD/in*0/fTACS/5n*0.n/f COTT/^n + O.O/ 
C lv7l RAINFALL DATA FOR LUBBOCKi TEXAS 



C- TriE FOLLOWING STATt'^FNTS INITIALIZE VARIABLES 



naTA NHfluL/n/ t IHLR/n/t IRTRN/U/ 

DHTA Ilin/O/rBGND/n./fTNHLB/O./ 

C ncAD IN VrtHIABLES FOR THIS SIMULATION 

C MfN=NUMREK OF YEARS TO RF SIMULATED 

C NlLS = NUMBt.K OF TRAILERS HE OhNS 

C MHVS=MUMBbk OF HARVCSTERS FARMER 

C ACS(K) - NO. ACRFS IN FIELD K .. 

C *U).- AVERAGE YlELn PER fiCPE^I.M FlFLH K 

C (ADJUSTED WHEN HARVEST OCCURS) 

c RL(K) - now LENGTH IN FIELD K. 

C COTT(K) - AMOUNT OF CnTTQN RFMAIMJNG EACH 

C yi<iI=AVERAGt: DIST. To GIN 

C G!0=6IN TUKNOUT 

C CLBR=LAOH COST PER HOUR 

C **nTE=GIN CAPACITY PFR HOURr RATFD 

C CUOT=COST PFf? LB. or LiNT LOST 

C NOFTTM - NO. OF TIMtS TO HARVEST, 1 oR 2. 

C INOTIM - CURRENT HARVEST, 1 = FIRST, 2 = SFCOMD 

C MFLO - NO. OF FlruOS ON THE FARM. 

C MASTRT - STARTINfi DAY NO. FO" READ IM MATLI^TTY 

C M ATRTEUK) - MATURITY RATEf PERCENT OF FINAL YlFl_n 

C ON HAY K, FOR FIELD I. 

C SMALY - SMALLEST Yltin THAT WE rtTLL HARVEST, >=n,n 

c IKAIM - FLAG FOR REAOTNG IN PAIN oR SIMUCATTMR IT. 

C = SIMIJLATFD 1 = READ IM 

C IIKA1N - MO. OF RAINFALL HAYS TO "FAD IM. 

C IHAHV(J) - FIELD NO. ASSIGNED TO HARVESTER J. 

c FLDFLG(K) -^HARVFST STATUS FOR FTFLD " 

9 Q - M9lu Y J HARVFSTED 1 = HARVESTED 1 TTMF. 

^ ,2 = HARVEST"-D 2 TIMES 

C TACb(K) - TOTAL 'iCRLc. COMPLETED HARVESTING* FTFLH 

C FOR THIS PARTICULAR HARVEST. 

C UvUIT - NO. OF HARVESTERS RETIRED FOR THE 

C 
C 



. t J (ACS(K) YA(K) iKL*<K) ,K = 1,NFLD) 

Ull FuKMAJOFlUf 2) 



CTLS, CHI_ VOL, HARCSV f LIFE 



76U 

Tf (IKAIM.LU.D READ(l7h1 ) ( IRDA RFlM ( IRHA) f I=1,MRAIM) 
76ji FoKMATCMIb'FR.SJ) 



Q27 



PROGRAM USTlNG-Continued 



TtAP=(TCAP*'*79./GTo)*lun. 

C FALLOWING STMT. ACCOUNTS FOR EXTRACTOR COTTON 
f5nTC=GKTE+(3RTE*< 5.8^33* (HTO-21. 3) /Inn > 

C 

c 



FuKMATCl'flOX' 'HARVF.ST-GIN FOP N.r. STATE 



FuKMATt tQi ,4x, ' NO.HAPV. NO.TRMLFRS TRAILER 

1 DIST.TO bIN' 
li 



"IIVS.MTLStTCAP'XUI 

1 Fuli^ATt 'O 1 21X*l3BXil3.QXF7tlr8XiF5li/) 

WKirE(3llU9) ._ 
1109 FuHMAM 0* ?X *F:EL nt fl'SVi 'ACRES' rKX'YIELDinXRoW LFNGTn 

'jhITtt31113J (IFKt Ars(lFK).YA( IFK ) L ( JFK ) IFK = 1 NFI-0> 
1113 FuKMATt rT57XFls.2,siCF15.2f3XFlB.?) 
C SIART A NEW YEAR 

T fR=(J 

^t-AnIlf7S9) CLOSFrlHSTRT* IHFNO.HARCAP 
759 FuHMAT(FlU.32I5Fln,3) 

c CLOSF = COTTON LOSS FACTOR 

C IH5TRT = BEGIN HARVEST (0 IS 6!0fl A.M.) 
C IHEND = STOP HARVEST. 

InOu TiR=IYR+l 

C Ti-fJ IS TO'IAL COTTON HAKV THIS YFAR 

c TIACS is TOTAL ACRES HARV THIS YEAR 



c SULECT COMPUTES THE GIN STARTING DATF AND THF HARVEST STARTIM^ HAY 

nLAOll75i) lG5TRT'.iSG.MSHNGLBR 
751 



CuTTT=0 
TIACS=U 
Ou U14 
CoTr(IFKJ=(ACS(IFK)*YA(TFK)*100.0/GTo)*479.0 



1114 CuTTT=COTTT+COTTUFO 
II- (IGSTPTL0.1) GO TO 

CALL SELECT (NSGNSHX ix PSTAKT.MASTRTMATPTF> 

75n 'lr^ITt(i'6U)^ISGrNsHr:OTTT 

6d FuNMATC N'GIN STAnTlNfi OAY IS r I4t// t t HHARV. STARTJMR HAY 

lT4//f'TT01AL COTTOM TO HARVEST IS 1 Fl n . 1 POlU'PS 1 t //) 
C 
C 
C 

C AbSIPfoS MARVESTEPG Tn FIELDS INITIALLY 
C IFIELD(K) - HARVrsTEH NO. ASSIGNFD Tn FIELD K. 
nu 1117 J=1NHVS 



1117 TtiARV(J)=J 
C 
C IuAY=DAY MO. 

Tl>AY=NSGO8ti 



C 

C IbAL - NO. OF DAYS SINCE SEn COTTON 5TARTFR 

C OPENING, MAX. OF 50. 

C 

C CoTTON UFTERIORATION FACTORr CLOSF 

C 

Th(IuAY.LT.yASTRT+3m GO TO 111^ 



Th 

Ou lllfa 

VWCOT=COTTUFK) 

CuTT(IFK)=COTTtlFK)*tl.n-(CLOSF*MATPTE(TFKrinAo) )*( f AT^ ( TFK ) -T A r;( 



if- (YLO.i.T.u.a) YLO=O.O 

YM(IFK)=YA(IFK)*(l.fl-CLOSF*MATRTE(lFK IOAQ) 
lilt) Yi_OS=YLOS + YLO, 

WKlTE(31077a) YLOS 
077d FUWATTi ''YLOS= 
lllb CuNTINUF 
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PROGRAM LISTING-Continued 



IOT=0 

GLLAYH IS FOR SIMULATING RAIN AND DFLAYSIN HARV. DlJf 7 TO PATH 
IbTART IS STARTING HAY FOR HARVEST AFTER RAINFALL 
PALL DE.LAYMX'NN,Rr IOAYISTARTIRAIN,RFIN) 



TiilS SUBROUTINE CALCULATES ARRIVALS FOR THE HAY AMD 
WHETHER GIN 15 RUNNING 
AK=RALES ARRIVED AT filN TODAY 

TuFLG=U MLANS GIN IS OPERATING* lGFLG=l MEANS RAINED OIJT 
IF ISTART .GT. JDAYMAR.GT. AND NO. GIN ARRIVALS FOR DAY 
NUAY=IDAY-NSG-dOAY-NSG)/7 

TARrlSTART-IDAY , . 

CrtLL ARR(KXrNNrARfMDAYf TGFLG*VOL'lARGINARISTRTiIMiD,TLAS T .TARFL 

i r ) 

lHlL)AY/7*7-lDAY.EQ,Q)AR=0 
II- THERF Ib A DELAY IN HARV. DUE TO RAlMi GO TO filNNJNG 

***#*****************+#*********+#******************#********** 
FOLLOWING IS GIN MANAGEMENT SCHEDULE BASED ON BACKLOR. 



TI-(HKLG.GT.lOOtANO.HSHIFTiE0.2)IGT=?30 
IKtnKLG.GT.100.) GRTE=lft.8 
Th(IDAY.GL.NSG+56) TGT=110 
It-(IOAY.GL.NS6+56) GRTE=16.8 

+****#*****************************************#*****#********* 



2U 



112H 



7111 

1156 
C 
C 
C 



1120 



1121 



luT IS TIML COUNTER DURING DAY 

IuT=IDT+l 

TiDT=TOTAL NO. OF TTME INCREMENTS 

TiDT=TIDT+l 

iHIDAY.LT.NSH.OR.inAY.LE.ISTART) GO TO 6 

THlDAY/7*7-IDAY.EG.O) GO TO 6 

HARVEST BETWEEN THSTRT AND IHENDi 0=6!00 A. 
TMIUT.LE.IHSTRT.OR.IOT.GT.IHENDT GO TO 6 

It- (IuUIT.tO.NHVS) GO TO 1123 

'vNTlNUF 

CHECK FOR HARVESTERS COMPLETING A FlFLD 

nu 1H9 JPK=lrNHVS 

TU=IHARV(JFK) 

iKlriARV(JFK).EO.O) GO TA 1126 

TKTACSdU ).LT.ACStIU M GO TO 

IHELOJIU )=i 

FLUFLGtlU , )=J 

Tl-dHOTlM.LQ.2) FLDFLGdU )=? 

TftCSUU )=0,n 

WKITt(3tll3nj IHARV(JFK) , IDAY'FLDFLR( 1U 

YMtlU )=COTT(IU )/(ACSdU 

WhITEU7lil) YATIU ) 

ruHMAT* ' ' ' 'YA ' f F1 0.5) 

inARVt JFK)=0 

CUNTINUE 

SLLECT NEW FIELD FOR HARVESTER JFK 

nu 1120 lFK=lfNFLD 

TI-(IFIELDIFK) .GT.O) GO TO 1120 

iKYAdFK .LT.SMALY) GO TO 1120 

IMMATRTE iFKflDAL) .LT,n.99. AND. INOTIM.FQ.?) GO TO 

TMFLDFLGUFKJ.EQ.IHOTIM-I) GO TO 1121 

ruNTINUF 

lH(II\lOTlM.t0.2 IHARV(JFK)=0 

IhdNQTlM.tO.2 GO TO H19 

IhtNOFTlM.EQ.l IHAPV(JFK)=0 

Tl-(NOFTlM.LO.l) GO TO H19 

TiACS=0.0 

TNOT1M=? 

GU TO 1124 

TMARV(JFK)=IFK 

T(-IFLD(IFK)=JFK 

SELECTED NEW FIELD (JFK) FOR HARVESTFR . ( JFK ) 



COTT<T't 
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PROGRAM LISTING-Continued 



GO TO 11M 
1C MATRTEUFKiIDAL) ,GE.n.99<39> PO TO llfil 



MATRTEUFKrIDAUjIDAl 
7112 FORMAT (' ' t 'MAT '.riO.<s,' IDA1 'IlO> 
il60 rUNTINUF 
1161 CUNTINUF 

C OPENTlxjO RATE IS ADJUSTED TO REMAINING COTTON 

C IN THE FIELD* AFTER FIELD IS HARVfTSTFD 1 TIME. 

C 
C 

1119 ruNTINUF 
^ f TwUIT-0 

nu 1122 JHK=1NHVS , T , 

1122 IMIHARV(JFK) .EQ.fl> IQUTT=IQUlT+l 
Tf-llQUIT.cQ.NFLD) Gl To 1123 
TO 



'COMPLETFO HARVESTING FIFLO NO. r TFi^Xf tnM 
FIELD HAS nEN MARVESTFR * t 72 IX ' TIME ' t /> ' i , 
?OITON IS '(F10.0) 
C 

C CHECK IF ALL TRAILERS ARF GINNED IF ALL COTTON IS 

IHTAMT( I) .GT.50,0) GO TO 8016 
b CONTINUE 

Ru TO 7 
4 CUNTINUF 
C 
C 

NOH=IDAY 

'C) .E0.6> T^ ( 1C 1 = 



. 

. Tl (K)=TTUC>+0.1 
C HARVESTING CALCULATTONS 
C FOR EACH HARVESTER, HARyFST DURING AT 

n^ 8 J=I*NHVS ni 

TKlhARVt J) .EQ-0) Gn TO ft 

It- (TIOT.LT. ISH(J) )GO TO ft 

C RKEAK Dn W IJ OCCURS EVERY 8 HOURS ON AVERAGE AMP REQUIRES 1 . ! HnriS 
C FOR HLPA|R n ON AVERAGE 

Rh=l.-EXp(-n.i/8,0> 

Xtl)=X(l )*U 
( 



RANDU(XNN) 
iMRNX.GT-bH) GO TO 1061 



1062 IH=I4 
xa)=X(l)*bl92 
CALL RAMDUCXtNN) 



DIH=12.*ALOG<1<-RNX) 



106J RMATHARVESTFROlM^REA^S DOWN 

"REPAIR TIME, is- ,F6.i; TIME TNCRFMENTS' 



s 

*lOn 
)*MATRTE(TU 



C nuACESPhR HpURfTHEORFTlCAL 

g j^K^^gTio^hA^^E^HA^fcHECK ON TRAILER STATUS 

c XU=AMT HELD BY EA. HARV LHS. 

TuO=l/00 , ir . . 

L) 
IU 1/1200.) 
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PROGRAM LISTING-ConHnued 



Ii-dUT,FQ, b n) WRITE(3'1M10) A.Ur 
Inlu FuRMATt ' f3F8.1 6X F8 . 3 , 6X . 'A.B.CfFFF' ) 

*(YA(iu >*MATRTEdu .IDAD/TCAPJ 



C AI.UELT IS ACRES HARV IN HELTA T 

^UELT=(1/TACRE)*0.1 

RlRIP=(RLdU )/6534. >*2. 

C TRAILERS Al^n A HAULFR ARE READY- HAUL TO GIN. 

TlKIP=TACRt*RTRTP 

C II- AT THE START OF THIS TIME PERIOD* A HARV. TS FULL, T^ IS 
C 10 BE IDLE 



HARTOL=Pll*YAlIU )*RL(IU ) *2 . 0*MATRTF 

TMHARTOL.GT.50n> HARTOl=50Q. 

TrtHAMT(j) .GT.XO-HAnTOL) GO TO 10 
C AiDf=AMT, iM HARVESTER DURING DELTA-T 

/UDr=d./TACRE>*0.1*VYA+LBH 
C HMT(J)=AMT. IN JTH 



TftCSllU )=TACS(IU J+ACDELT 

TlACS=TTACS+ACDELT 

CuTTdU )=COTT(IU )-AlDT 

Ii-tCOTT(IU J.LT.O.n} COTTdU )=0.0 



C IF THE HARV. BASKET IS WITHIN HARTOL LBS 

C OF CAPACITY' THEM IT TS 

C UUMPEUr OTHERWISE' LOOK FOR NEXT HAPV. 

TKHAMT(J) .LE.XO-HARTOL) GO TO ft 
C 

10 CUNT1NUF 

C LUOK AT TRAILERS TO SEL TF WE CAN DUMP HQRV. 

C CnECKS FoR F.MPTY TRrtlLERSf IF ONE IS FMPTYf THF FLA^ TS SET FOR 
C FILLING IT 

nu 11 K=lNTLS 

; If(IFLARlK) ,EQl.ANn.NSfiM(K).EO.J) GO TO 12 
U ruNTINUE 

nu 37 K=1NTLS 
THdFLAG(K).EO0) NSGN(K)=J 
Ih(IFLAG(K) .EQ.O) IFLAti(K)=l 

ThdFLAG(iS) .EQ.l.ANn.NSGM(K) .EQ.J) U'RITF(36nl )K TDT, TOAY J 
f.01 ForWATC '.'TRAILER NO. ' , I3 2X ' IS SELECTED TO RF FTLLFO AT TTvF'r 
1142Xf'OF UAY'm'Yf ( bY HARVESTER ' 12 ) 

TK1FLAG{KJ.EQ.J.AN".N5BM(K).EO.J) fiO TO 12 
37 CuNTINUF 

C MbGN(K)=AbJ)IGNING THE KTH TRAILFR To THF JTH HAPV. 

C ThLAO=0 MEANS TRAILER BAITING TO BE FlLI.EP 

C rt-LAfa=l MEANS TRAILPR IS BEING LOADFD 

C TI-LAfc=2 MEANS TRAILFR IS FULL 

C Tl-LAb=3 MEAMS TRAILER Is IN TRAMSIT TO GIN 

C II-LAG=* MEANS TRAILFR IS IN QUEUE 

C Ii-LAfa=b MEANS TPAILFR EM^TY AND ON PIN YARD 

C THLAb=b MLAMS TRAILFR ON WAY HOME 

C Ih DO LOOP COMPLETED NO TRAILER AVAIL. 

C .it-LAb J)=U LETS HARV QUwn 

c JI-LA& J)=i ME;ANS IDLE HARV. 

.lfLAG(J)=l 

IUL(J)=IDL(J)+0.1 

Gu TO 8 
C 

C FILLING THt K+H TRAILER FROM THF J+H HARVESTFR 

12 TrtMT(K)=TAMT(K)+HAMT(J) 



ThdFLAG(K) . 

f t Q2 FuKMATC '.'TRAILER NO. t , 14 , 2X. ' WAS FILLED AT TTMF'I'M 
ChECKS Fol-i FULL TRAILERS 

H)IDAYrinTJpHAMT(J)KTAMT(K) .IHARV(J) Int.(J) 
' 6Xr'OAY' .14, t TIME ' ' I'U6X 'HAPVESTFR MO. ' rl?, , 
OF SEFD COTTO M BEING DUMPFD INTO TRAILER' T3 >/ WHl^H MOW 
rFin.it 'LBS. OF SEEH COTTON' , 10V , 'FIELD NO. ' Is. ftY, t TDL r 



EMPTIES THt J+H HARi/. 

MHKTiJ)=n. 

JhLAGtJ)=U 
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PROGRAM LISTlNG-Continued 



C <\I-TF.R MARV. DURING HEU A T' THE TRAILER^ ARE FVAMlNFD AMH I r T w p 

Th (iHLR.NE.n)GO TO F, 

C To SEE IF AMY TRAILrRS LFFT ON FARM) IF 50 HF WILL HAUL 1 T p ATL ro 

Du 1.} IT=1,MTLS 

Ik- UulJIT.Lu.NHVS.AN-MF-LAGdT) .FQ.2) IFl A6(IT)=3 

Th (IFLAGUT) .EQO>GO TO IB 



Ti\U =0 

no 17 ITzlrMTLS 



ir UFLAfi(lT) .EQ. 3)TRDK=l 
17 TtsLJ=lRD+lUUK 

ni 112 IT=1>NTLS 

K I =0 

It- (I-HD.LT'^)GO TO fa 

Ih (IFLAGtlT) .E0.2) KT=1 

KlT-KTT+KT 

It- (KT .EO.l) TFLAG(IT)=3 



FOR GIN AT TTMF,,I) 

Ih (KTT.ECJ.11 GO TO 

u^ CUNTINUF 

Gu TO b 

C TuLK IS Tht PICK-UP DRIVER 

C inLH=0 rHt IS ON FAPM 

C TnLR = lf HE IS ON WAY To r,IN 

C TiiLR=2f Hb. IS AT GIM 

C lnLR=3 Ht IS ON WAY To FARM 

lb TMLR=1 



, 
ThU=(XMT/lb,)*10 

FmJ=IDT+TKD+2 



JK=1MTLS 
ThtlFLAG(JK) .NE.SIG^ To ?3 
F.HT(JK)=TLNO 
2^ CONTINUE 

C 
C 

C r.lNNING PORTION OF PROGRAM 

b CuNTlNUF 
Tt=0 



TMIDTlGT.iH5TRT.ANn. IDT. LT.IHEMD) ARPH=(AR/( THFHn-TH^TT) )*1 n 



GO TO ?7 



}!;iU?W? ( fW'?!A 3 miUER ? iNTERS THE OIN QUEUE 



Th(IHLR.EU.l)IHLR=2 

Ih (IMLK.NE.?) GO TO 27 

}KTRN=TTME HAULER G^TS RACK TO FARM 



TO 






27 CUNTINUF 

TI- (TlDT.EO.IRTRN.ANn.lHL".EQ.2) IHt_o=n 
IrdbFLG.tQ.D.GO Tn 99R 
Tl- (TlOT.LT.GOPt GO TO 9Q 1 ! 

r^scsf ;iWas5?ai??w 

r?u=l,-t*P(-n.l/l2.) 





CrtLL RAMDU(V,NNJ 
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TH (RhtX.GT.KO) GOTO 10 

GiN BREAKS HOWN IF r?NX L TSS THAN PROB. OF 



XUUXU 

CALL RANOU(X,NN> 



MiTH 10 HtKF* IT MEANS 1 HR . AVFRAGF RF.PAIR 

GuT=10.*ALOfi(l--RNX) 

GuP=TIDT+AaS(GOT) 



FOKMATC S'GIN BREAKS DOWN AT TIME' t 14 2X ' OF HAY 14 , py t 
1T1ME IS'.Ffa.l2X, 'TIME INCREMENTS*) 
C ONLY WHEN 7IDT IS G^EATFR THAN GOP HOES GIN BFG1N TO 

3U CUNTiNUF 

C RrtHDOMLY COMPUTES A'.T GTMNED DUPING AT 



CHLL 6AUSS(XNNSGRTGRT F *GAMT) 

^HMr=GAMT*(J.l 

IK8KLG.LT.O.I) GO TO 9Q6 

TMGAMT.GT.RK 

nolN=DGlN+bAM 



P9o -iKLG=TNPLS-RGND 
997 CuNTINUE 



C 

C TiviPT=NO, TRAILERS RF.ADY TO BE HAULED BACK TO FARM* MAY. OF J> 

C CHECKS FOR TRAILERS BEING GINNED AND RETURNED TO FARM 

HU 2B2 I=1MTLS 

Ih(IFLAG(I),NE.4)GO TO 

lKlflN(T).faT.BGNn)Go TO 

JhLAG(I)=5 

TMT(I)=0 



. 

f,0b FORMAT!' r 'TRAILER NO. i f ii2Xr'is GINNFO. TTMF 

h (IFLAfi(l).E0.5HMPT=lMPT+i 



Il-(IFLAO(I) f NE.5)GO TO ul 
ThtlHLR.EU.l.OR.lHLR.F.y.^JGO TO 41 
ThtlhLli.EU.O.AND.lMPT.EO.l) GO TO 41 
It- UUTtGT-Bl) GO TO 40 



nl (I)=TIDT+(XMI/15.)*10. 

Ih IHLR.ECi.n)RT(l)=TIDT+XMI/15.)*]Ot )*?. 
I i- ICNI . EQ . ? . OR . I HLP . Eu . 9 ) 
Th(ICNT.EO.?)NHAuL=' ( HAUL + l 



41 th(TIDT.GT.RT(D.ANn.IFLAG{I).E0.6) GO TO 111 

Go TO, 40 
111 Tl-LAG 1>=U 



114 FURMATT* ' "TRAILER NO. I4 2X ' RETURNS TO FAPv AT 
1 uF OAYNI4) 
TnLR=0 

4U CuIJTINUF 
Q9b CONTINUE 

rh(IUT.LT.lGT)GO TO 20 



FORMATl'OS//*' '3PXr'nAILY GIN SUMMARY*) 



ft07 FORMATCO* MXf'DAY vO. NO. ARRIVALS RALES GINNFO 

\ IOTAL RALLS CUHREMT OPERATIMG'/ i2X PALFSf inx ' 

( RLCElVF.D'i7X;'OINNFO',<5Xr'PACKLoGt,3X 'HOURS TODAY'//) 



* f I6'F12,1 ,F13. 1 F12.0 r RXFfl. t Fll . 1 RX f I3 //) 
THUUAr.GT.4lO.AND.RKLG.LT.2) GO TO 7 
(TTACS.Gt.ACST) Go TO "99 

f 'DAILY HARVESTING SUMMARY') 

ftlb ruKMATt 'O 1 f4X 'HOURS* faXf 'TOTAL ACRrs TOTAL COTTON 
^Af'wHICH HARVEST 1 ? 

/P ' ^^PE^^TIp.tl^ HARVFSTED HARVESTED- IDLF TTviFt) 

Ho 612 TH=1NHVS 
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PROGRAM LISTlNG-Continued 

ftlt iKlTE(3i6lJ) IHTTACS'TCM IOL( IH) I MOT I" 



999 CONTINUE 
7 CulMTlNUF 

CILS = COST PER TRAILER PER YEAR 

CIR = TOTAL COST OF TRAILERS PEP YEAR 

MMAUL = NUMBER OF TPIPS HAULER MAKES TO THE GlN 

rnL - COST PER MILE TO OPERATE PICKUP HAULINGMOT C^UMTTMG i 

CnAUL= TO 1AL YEARLY C(XT FOR HAljLlMG Tn GIN 
NIH= TOTAL NO. OF U/W5 HARVESTING ' iMCLUniNG RATMY 
CrL3R=TOTAL COST OF FARM LABOR FQR YEAR 
CoLOK=COsT OF GIN LAROR FOR UNLOADING SYSTEM AT GIN 
NoLiiH=NO.OF LABORERS FOR THIS GIN UMLOAOING SYSTEM 
6LPB=GIW COST PER B^LEiFROM SMITH UPDATFD STUHY 
VuL=faIN SEASONAL VOLUME 
HKH=HOUPS KUN PER HARVESTER 
AbSUME 7 bAL PER HR AT .13 PEK GAL. 



, 

CLUR=LUR. COSTS/YEAR 
C1NS=INSUKANCE COST 

CiNT=INTEHb5T COST 

CuEP=DEPREClATION 

rhARN=TOTAL COST OF HARVESTING FOR 

C'bIN=TOTAL GIN^COST FOR YEAR 

T^PB=TOTAL COST PRR HALF 

CuUS=YLOS*CCOT*GTO/!00. 



. 

CHAUL=NHAUL*CHL*XMl*2. 
MlH=l+NOH-NSH-'NOH-MSH)/7 
CHLBR=(CLHk*8.*NTH)*(MHVS+2+NHVS/3) 

CbLBR=(CLBR+TlDT/lO.)*NfiLBR 

' 



HHH= ( 1 . n/ ( ACDELT*10 , n ) ) * ftCST/NHVS 

CHUEL=HPH*U-99 

CLUD=0. 15*CFUEL 

CIAX=0.ni*hARC 

CiNS=Otnob*HARC . 

ClNT=nHAKC+sy>/2* )*0.07 

Cut:P=(HARC-SV)/LlFE 

rhARv=CFUtL+CLUB+CTAX+ClMS+CINT+CDEP+CRFP 

CMARV=CHAhV*NHVS 

RLLS=TCN*(GTO/100.)/U79. 

CuIN=GCPB*BL.LS 

TCPB=GCPB+(CHARV+CT"+CHAl)L+CFLBP+CLnS)/PLLS 



T| 

TC=1NTLS 
Tl IIC)=TT(IC)-TE(IC) 



EM 

IfVXi 'FULL') 
FuRMATC '7X-I37XF6.1r5XF9.1) 






It- (IYR.LT.NYRJGO TO 
Si OP 



SUbRGUTTNE SELECT (NM Xr NNr P5TAPT t MASTRT.MATRTD 
DIMENSION M ATRTE(5n5u) 

MUH=HARVEb?ING STARTING DATE 
XN=AVG. GIN STARTING DATF 

VARIATION 
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PROGRAM LISTING-Continued 



N=G 

HU U = lr5<J 

TMMATRTEU* I) .LT.PSTART1GO TO 1 

\fl=MASTRT+I+l 
Gu TO 2 
CONTINUE 



nELAYH(X.NN,R,IDAY'ISTART,IRAIN,RFTN) 

DIMENSION KFIN<400) X<11 

R-RAINFALU INCHES 

It- ( IKAIM.LG.l) GO TO 20 

CrtLL RATN<HXrNN) 

<-,u TO in 
2u R=KFI 
3U CUMT1NUF 

Xnl=0b 



XK3=200 



SK3=G.40 

C THE PREC. VARIABLES DESCPlBE A DELAY STEP FUNCTION WHTRC- 
C nKEAK POINTS ARE RANDOMLY CHOSEN 



IMR.LT.O.OI ) GO TO 71 

GAUSS(XNNSRliXRlinLMTl) 
GAUSS(XNNiSR2XR2DLMT2) 



It-(R.GT.DLMTl.AND.R.LT.nLMT2)DLAY=1. 
, TI-(R.GT.DLMT2 DLAY = S. 
72 IuLAY=DLAY+0.1 

ThTlSTART.GT.IDAY)ISTART=ISTART+IDLAY 
IbTART=IDAY+lDLAY 

T(-(ISTAPT-inAY.GT.4)I5TART=:IDAY+4 
A MAX DELAY OF 4 DAYS FROM CURRENT HAY 
If- (R.GE.O.unwRITEC^eiJTDAYrRr I START 
61 coKMATt 'n'f DAY NO. = ' Ml >4X* RATN=' F5. ? 

RETURN 



SObROUTTNL 

DIMENSION xti) 

R = 0. 

RL.TURN 



SUBROUTTNE ARR ( R , X , MN t AR . NOAY IG VOL t I AP SA MA MR , NC , 
Oi_AL NAiNBMC 
OlMEMSION X(l) 

ro=o 

DATA NBLNK/n/fNSTART/fl/ 
ThtrguAY.LT.NSTARTJ IG=1 
Tf- (M[>AY.LT,MSTART)Gn TO 1 
It- (K.GT.O)GO TO 2 
Tl- (IAR.GTU) GO TO 1 



, 

II- (TARFLG.L'O.D GO TO In 
SH=148,45b/ < (VOL)**n.4 
S*=3.37 

^|A-n . OOP7* VOL-3 . 52-6 , 
it>=100./SA + n.67*NA-3.6 
!.PL=NU + B. 
If) FoX=( (XA/NA)**2)*SA 
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PROGRAM LISTING-Continued 



Th (YA.bT.NA)FOX=SA 

Tl- (XA.tT.Ub)FOX=< "C-XA)/fl. )**?)*SA 

Tr (XA-faT.NC )FOX=0. 

AH=FOX*VOL/100. 



UK.LT.O. ) AR=0. 
nu TO 3 
M~l.b*X(D 



Du SU I=ll? 



CaLL RANDU(XiMN) 
Y-X(l) 
50 A-A+Y 

Y=(A-6.n)*b+AM 
-JtTURN 



RANDU(XM) 



vU)=AUS(K) 

M=NK 

Ri-TURN 
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EXAMPLE RUN 



Input Data 



25-10 

211.00 

1^50 
5L.ifl 

30-00 



6 

U.93 



00 

40 
20 
00 



200.00 

4HQ.OO 

2^0.00 

75. On 



2.5 



IB. 5 



1.60 



12.0 



1.00 



400.00 



0.000. noO 
.400. luG 
0.950.900 
0.20.U..5UO 
0.90(j.QbO 
O.OOO.OoO 
0.40U.'tuO 
,95o. ibO 
.200.^00 
0.90u.nuO 
o.nOo.ntiU 

0.400. 4UO 
.. 95u*oi>0 
0.200. ^uO 
0.90U.4UO 



.UBO.OilU 
.500.500 
.950.9bl 
.400.400 
.950,951 
.080.000 
.bOO.SOU 
.950.951 
.400.400 
.950.951 
.080.000 
.500.500 
.950.951 
.1+00.400 
.950.951 



,100 

.500. 

.001. 

.400. 

.001, 

.100. 

.500. 

.001. 

.400. 

.001. 

.100. 

.500, 

.001. 

.400. 

.001. 



.100 

.600 

.001 

.400 

001 

100 

600 

OOI 

400 

001 

100 

&nn 
ooi 



ooi 



.100.100 
.650.700 

.oni.nOl 
.40y.uOO 
.ool.noi 

.IOU.100 
.650.700 
.OOl.nOl 
.400.400 
.001.001 

.100. too 

.650.700 
.001. oOl 
.400.400 
.001. nOi 



.100. 
.700. 
.001. 
.500. 
.001. 
,100. 
.700. 
.001. 
.500. 
.001. 
.100. 
.700. 
.OOl. 
.500. 
.001. 



200.200 
TOO.flOO 

noo.oon 

500.500 
OOl.OOl 
200.200 
700.800 

ooo.oon 

500. 500 

ool.oni 

200. 200 
700.800 

Qoo.hon 

500.500 

001,001 



.200 

floo 
.nOO 
.500 
.ooi 
.?oo 
.800 

.noo 



.?5n 
.eon 
,gon 
.500 
.on] . 
.250, 
,80n . 
,00o. 



950.300 

900.900 
ooo.non 
506. son 
noi.oni 



.300 
.000 



.001. nni 

.200.250 
.800, ROo, 

.000. noo 

.500.500 

.noi.noi, 



900.900 
ooo. non 
500. Son 
noi .oni 



.500 
.oOl 
.300 
."00 



O.io 



.qon, 
.Ino. 
7on. 

.onl. 



.500 

.noi 
.500 

.900 

.io 



nOl.nni.nOl 



.ion. 
onil 



.-..,. 35o.40 
900.900,2 

loo, ion. 20 
700, snn .flo 

001,001,00 
^00. 3^0. 40 

pon,90o.o 
ion, inn. 2n 
-no.flnn.flO 
nOi.ooi.no 

" .35n.4f1 



000. non 
. Son 



Ion. 

700. 

oni. 



100. inn. 20 
^oo. floo.no 
nOi.oni.no 



t- 

=> 

25 

- 

LJ 
o 



1 

32 i 
35u 



=> 



327 

363 



333 



0.059 
U.28 

.15 
.01 
100 
4 



71U9.00 
5.0 

335 .0? 

n.aoo 



13175.00 
3.37 



3000.00 
12 34 



336 .02 337 .,47 340 



1 

36 



^43 .01 344 ,02 



Output Data 



HARVFST-GIN FOR N.C. SI ATE EXAMPLE 

HO.HARV, NO. TRAILERS TRAILER CAP. D1ST.TO GIN 
1 14 7767, 6 2.5 



FIELD 

1 

3 
4 
5 
6 



ACRES 
25.10 
20.00 
5.00 
12.50 
51.10 
30.00 



GIN STARTING DAY IS 314 

HflRV. STARTING DAY IS 333 

TOTAL COTTON TO HARVEST IS 379168.6POUNB8 



YIELD 
.93 
1.00 
1.40 
1.20 
1.00 
1.00 



ROW LENGTH 
200.00 
400.00 
250.00 
75.00 
250.00 
400.00 



DAILY HARVESTING SUMMARY 



HOURS 
OPERATION 



TOTAL ACRES 
HARVESTED 



16 .00 

GIN Ef;EAKS DOWN AT TIME 



S7 



TOTAL COTTON 
HARVESTED 



HARVES1ER 
IDLE TIME 



.0 .0 

OF DAY 319 REPAIR TIME 



WHICH HARVEST 



1 



,2 TIME: INCREMENTS 



DAY NO. NO. ARRIVALS 
BALES 



DAILY GIN SUHi'IARY 

BALES GINNED TOTAL 9AL&S 
TODAY RECEIVED 



TOTAL DALES CURRENT 
GINNED- BACKLOG 



OPERATING 
HOURS TODAY 



319 



38.1 



37.4 



90. 



90. 



11 



98 



Output Data Continued 



DAILY HARVESTING SUMMARY 



HOURS TOTAL ACRES TOTAL COTTON HARVESTER WHICH HARVEST 

OPERATION HARVESTED HARVESTED IDLE TIME 

i 6 .00 -0 - l 

DAILY GIN SUMMARY 
MY HO. HO.2RRI.ftL3 6**S GIMKD TOTgl WES TOljjL WILES CURRENT ,,0}.,^ 



"BALES TODAY " RECEIVED GINNED 

320 39.9 35-2 130. 123. .7 H 

DAILY HARVI-.STING SUMMARY 

HOURS TOTAL ACRES TOTAL COlTOH HftRVESIER WHICH HARVEST 

OPERATION HARVESTED HARVESTED IDLE T I HE 

16 .00 .0 - l 

DAILY GIN SUMMARY 



TOTAL BALES CURRENT -- ~ 
GINNED BnCKLUU HOURb 

63.4 213. 196. 14.4 11 



DAILY HARVESTING SUMMARY 

HOURS TOTAL ACRES J-., . r,.- -- . . -. . ... - - - - 

OPERATION HARVESTED HARVESTED IDLE TIME 

16 .00 .0 * l 



HOURS TOTAL .ACRES TOTAL^CpTTON .HARVESTER WHICH HARVEST 



DAILY GIN SUMMARY 
DAY NO. NO. ARRIVALS BALES^INNED TOT^BAUS 'I gTA^grtLES CURRENT ^RATIH^ 



Oif? 

.jT.) .-.At IT J^.V PJ Kit<- - I I > 



HOURS TOTaLMftES TOTftL.COTrON ^^VH.UR WHICH HARVEST 



DAILY HARVESTING SUMMARY 

HOURS TOTAL ACRES TOiHi. uui iun '^^^Y;^ 1 

OPERATION HARVESTED HARVEbTEI) IPI,E Tint 

1 6 5.9y 10148.5 -0 1 

TRAILER 2 



FU s 

^1.1 H S|p.2 ^&.?1 BS ' F ,,^ i -51^ ]HA g' S ^i,K5ieS. OF SI^D COTTON BEING BUMPED INTO TRAILER. 2 
,;H HO!J_Hfiy , S^.S'-'r'-M, . r, r V.MI-- Vi . ... ...... ,.,.,-r.-,ti nr.Tin- nnMPt-n INTO TRAILER 2 



y^^ER 10 NO HAS i 'LEAVFS L FOR KjiS^i^ Q| ^ ^ ' m BACKLOG^I^^ ^.s BALES 

'" r "' C " ir " " "' ""' "'-'"""'"' rcD ' TRAIL fcR 3 



HAS EO^i.W-jBb. ui; M btcu ^'" ^^ ^^^ ^TTOH Bt|NG T T!UHPED IH10 Th'AILER 3 

TRAILER 3 



TRAILER 3 
'T!H?IOI OF DAY 334. GIN. BACKLOG IS 9.1 BALES 



99 



Output Data Continued 



DAILY GIN SUMMARY 



DAY NO. NO.HRRIVALS 
BALE'? 



BALES GINNED 
TODAY 



TOTAL BALES 
RECEIVED 



TOTAL BALES CURRENT OPERATING 
GINNE& BACKLOG HOURS TODAY 



334 



110.3 



108.0 



11 



DAILY HARVESTING SUMMARY 



HOURS 
OPERATION 



TOTAL ACRE; 
HARVESTED 



.00 



TOTAL COTTON 
HARVESTED 

27899.5 



HARVESTER 
IDLE TIME 



WHICH HARVEST 



DAILY GIN SUMMARY 



DAY NO. NO. ARRIVALS 
BALES 



BALES GINNED 
TODAY 



TOTAL. BALES 
RECEIVED 



TOTAL BALKS CURRENT 
GINNED BACKLOG 



OPERA! ING 
OURS TODAY 



360 



ISO. 3 



361.9 



3010. 



10.3 



DAM Y HARVESTING SUMMARY 



HOURS 
OPr.RttTIUII 



TOTAL 



TOTAL COTTON 
HARVESTED 



HARVESTER 
IDLE TIME 



WHICH HARVEST 



103.17 



YLOS= 



TRAILER NO. 
TRAILER NO. 
TRAILER NO, 
TRAILER NO. 
TRAILER -NO. 
TRAILER HO. 



3641.90 



1 



1 



OF DAY 361 
OF DAY 361 
OF DAY 361 
OF DAY 361 

'14 OF DAY 361 BY HAR 
2399. 6LBS. OF SEED COTTON 

FIELD NO. 5 
2262. 3LBS. OF SEED COTTON 

FIELD NO. 5 
K179.6LBS. OF SEED COTTON 



FIELD NO. 



RETURNS TO FARM AT TIME 
RETURNS TO FARM AT TIME 
RETURNS TO FARM AT TIME 
RETURNS TO FARM AT TIME 
IS GINNED. TIME IS 43 
IS SELECTED TO BE FILLED AT TIME 
DAY 361TIME 44 HARVESTER NO. 1HAS 
WHICH NOW HAS 2399. 6LBS. OF SEED COTTON 

DAY 361TIME 43 HARVESTER NO. IHAS 
WHICH NOW HAS 4661, 9LBS. OF SEEjj COT TON 

DAY 361TIHE 52 HARVESTER NO. 1HAS 
WHICH NOW HAS 6B41.5LBS. OF SEED COTTON 
TRAILER NO. 1 WAS FILLED AT TIME 57 

DAY 361TIhr- 57 HARVESTER NO. 1HAS 
WHICH NOW HAS 9409. OLBS. OF SEED COTTON 
TRAILER HO. 1 I EAVES FOR GIN AT TIME 57 
HARVESTER NO. U'REAKS DOWN.. TIME 600F DAY 361 

893. 7-3?.. 2 9*3. 7 . 546 A. B, C, I-.FF 

TRAILER NO. 1 ENTERS GIN QUEUE AT TIME SI OF DAY 361. GIN BACKLOG 
TRAILER HO. 3 RETURNS TO FARM AT TIME 63 OF DAY 361 
TRAII i.-R NO. 2 IS SELECTED TO BE FILLFD AT TIME 64 OF DAY 361 BY HAR 
DAY 361TIME 64 HARVESTER NO. 1HAS 2356.2LRS. OF St:ED COTTON 
WHICH NOW HAS 2336. 2LBS. OF SEED COTTON FIFLII NO. 3 

DAY 361TIME 63 HARVESTER NO. 1HAS 2112. OLBC. OF SEED COTTON 
UHICH MOW HAS 4468. 2LBS, OF SEED COTTON FIELD NO. 5 



.5LKS. 
FIELD 



01- 



SLED COTTON 
5 



.'ESTER 1 

BEING DUMPED INTO TRAILER 
IDLE TIME- 0. 

BEING DUMPED INTO TRAILER 
IDLE TIME= 0. 

BEING DUMPED INTO TRAILER 
IDLE TIME= 0. 

BEING DUMPED INTO 1RAII ER 
IDLE TIME= 0. 



REPAIR TIME IS -3.3TIME INCREMENTS 
IS 81.0 BALES 

VESTER 1 

BEING DUMPED INTO TRAILER 
IDLE T1ME= 0. 

BEING lJUMPLti INTO TRAILER 
IDLE TIME= 0. 



COMPLEIED HARVESTING FIELD NO. 
REMAINING COTTON IS 1573. 



ON DAY 361 



THIS FIELD HAS BEEN HARVESTER '1 TIME 



YA .01189 , 

DAY 361 TIME 7? HARVESVGR NO. IHAS 2418.6LBS. 
WHICH NOW HAS 6886. 8LBS. OF SEt'D COTTON FIELD 
TRAILER NO. 2 WAS FILLED AT TIME 76 

DAY 3611 IME. 76 HARVESTER HO. IHAS 2382. 9LBS. 
WHICH NOW HAS 3269. 7LBS. OF SEL-D CUT TON FIELD 
TRAILER NO. 2 LEAVES FOR GIN AT TIKE 76 
TRAILER NO. 3 IS SELECTED TO BE TILLED AT TIME 80 OF I 

DAY 3&*TIME 30 HARVESTER NO. IHAS 
WHICH NOW HAS 2389. 8LBS. OF SEED COTTON 
TRAILER NO. 2 ENTERS GIN QUEUE nT TinE SO 

DAY 361TIME 34 HARVESTER NO. IHAS 
WHIi.'h HOW HAS 4724. 1LB" 

DAY 361 TIME 38 
WHICH NOW HAS 7044. 9LBS, 



Ul- SE[-D COTTON BElNG DUMPED 
NO. IDLE TIME" 0. 

OF SEED UOTTON BEING DUMPED 
NO. 6 IDLE TIME= 0. 



INTO TRAILER 2 



INTO TRAILER ?. 



OF SEED COTTON 
HARVESfCR NO. 1HAE 
OK SEED COTTON 



3til BY HARVESTER 1 
23U?.SL6S. OF SEED COTTON BF.:iNG DUMPF.D INTO TRAILER 3 

FlhLB riU. 6 IDLE TIME= 0. 
OF. DAY 361, GIN BACKLOG IS 156.4 BAU'S 
2334. 31 BS. OF St.LD CTlTTl'-N BEING DUMPED INTO TKAUFR JE 

FIELD NO. 6 IDLE TIME* 0. 

E320.7LBS. OF SKfcD r:nrTON BFJNG JjUMPl0 INTO TPAII.ER 3 
FIELD NO. IDLE TIME* 0. 
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Output Data Continued 



TRAILER NO. 3 WAS FILLED AT TIME 92 

DAY 361TIME 92 HARVESTER NO. IHAS 2460. 9LBS. OF St.ED COTTON BEING DUMPED INTu TRAILER 3 

WHICH NOW HAS 9525. SLBS. OF SEED COTTON FIELD NO. 6 IDLE TIHE= 0. 

TRAILER NO. 3 LEAVES FOR GIN AT TIME '32 

GIN BREAKS DOWN AT TINE 32 OF DY 361 REPAIR TIME IS -11.0 TIME INCREMENTS 
TRAILER NO. 4 IS SELECTED TO BE FILLED AT TIME 96 OF DAY 361 BY HARVESTER 1 ^ Tpivir .^ J 

DAY 361TIME 96 HARVESTER NO. iHAS 2634.2l.BS. OF SFED COTTON BFING DUMPED INTO TRAILER 4 

WHICH NOIJ HAS 2634. 2LBS. OF SEED COTTON FIELD NO, 6 IDLE TIME= 0. 

TRAILER NO. 3 ENTERS GIN QUEUE AT TIME 96 OF DAY 361. GIN BACKLOG IS 208. 2 BALES T1 _ A ., m A 

DAY 361TIMF lOCi HARVESTER NO. IHAS 25?2.SLBS. OF SEED COTTON BEING DUMPED INTO TRAILER 4 

WHICH NOW HAS 5207. 1LBS. OF SEf.D COTTON FIELD NO. 6 IDLE TIME- 0. 



TRAILER UTILIZATION 

TRAILER EMPTY FULL 

1 21.0 55.2 

2 34.7 41.5 

3 44. 3a. U 

4 50.7 25.5 

5 28.9 47.3 

6 57.6 la. 6 

7 69.5 6.7 
S 71.1 5.1 
9 76 . 2 .0 

10 76.2 .0 

11 76.2 .0 

12 76.2 .0 

13 76.2 .0 

14 76.2 .0 
BALES HARVESTED- 140.0 

HOURS OPERATION PER HARVESTER- 59.58 
DAYS LABOR CHARtt.U FOR HARVESTING 31 

HARVESTER CUl ^35.20 

GINNING COST 3456.99 



TOTAL COST PER Bftl.E IS 61.?7FOR HftRVEOTING , HAULING , AND GINNING 



0BRKPT PRINT* 



. GOVERNMENT PRINTING OFFICE: 1975- G73-IIU5/25 Region No. 7 
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